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SUMMARY OF AMENDMENTS 


This manual contains information previously published in DOS/VSE LIOCS Volume 2, SAM 
Logic, SY33-8560, and VSE Advanced Functions Supplement, LD25-0023. Changes reflect 


support for: 


e DASD independence for SAM files. 
e Reduction of B-transient area contention 


The major result of this support is the removai of descriptions pertaining to Sequential 
Disk (SD) logic modules, and OPEN and CLOSE B-transients. These functions are supplied 
by modules executing in the SVA and are described in VSE/Advanced Functions Diagnosis 


In addition, magnetic tape message writer B-transients are modified to cause A and D 
messages to be issued from the SVA so that the LTA is not held in the wait state for the 
responses. Several new B-transients are supplied to transfer control to and from the LTA 
and SVA for this purpose. 


Other miscellanecus changes are included for 3262 printer support, user-specified label 
information area on a volume other than SYSRES, and APAR corrections. 


First Edition (October 1979) 
This edition, LY24-5210-0, applies to Release 2 of VSE/Advanced Functions (Program Number 
5746-¥E9) and tc all subsequent releases until otherwise indicated in new editions or 
Technical Newsletters. Changes or additions to the text and illustrations are indicated 
by a vertical lire to the left of the change. 


Changes are continually made to the information herein; before using this publication in 
connection with the operation of IBM systems, consult the latest System/370 and 4300 
Processors Biblicgraphy, GC20-0001, for the editions that are applicable and current. 


It is possible that this material may contain reference to, or information about, IBM 
products (machines and programs), programming, or services that are not announced in your 
country. Such references or information must not be construed to mean that IBM intends 
to announce such IBM products, programming, or services in your country. 


Publications are not stocked at the address given below; requests for copies of IBM 
publications shculd be made to your IBM representative or to the IBM branch office 
serving your locality. 


A form for reader's comments is provided at the back of this publication. If the form 
has been removed, comments may be addressed to IBM Laboratory, Publications Department, 
Schoenaicher Strasse 220, D-7030 Boeblingen, Germany. IBM may use or distribute any of 
the information you supply in any way it believes appropriate without incurring any 
obligation whatsoever. You may, of course, continue to use any of the information you 
supply. 


©) Copyright International Business Machines Corporation 1979 


This manual is the second in a series of 
four granuals prceviding detailed information 
about the VSE/Advanced Functions Logical 
IOoCS pregrams. The four manuals are: 


Volume 1: 


Volume 3: DAM and ISAM, LY24-5211. 
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ASD, LY24-5212. 


This manual is intended for persons 
involved in program maintenance and for 
system programmers who are altering the 
program deésign.j Program logic information 
is net necessary for the operation of the 
programs described. 


General routines that apply to more than 
one access methcd cr more than one file 
type are descriked in Volume 1. These 
routines include ofen/close and a number of 
transient routines. References to Volume 1 
are made whenever required for a good 
understanding of the topics discussed. 


This volume of the VSE/Advanced 
Functions Logical IOCS Manuals consists of 
five parts: | | 


1. LIOCS support for Unit Record files. 
2. LICCS support for Magnetic Tape files. 


3. LIOCS support for Device Independent 
files. 


4.- LIOCS support for Diskette files. 
5. Charts. 


Parts 1, 2, 3, and 4 supply descriptions of 
the declarative and imperative macros, DTF 
tables, and initialization and termination 
procedures fcr each of the file types 
described. Part 5 supplies the detailed 
flowcharts associated with the descriptions 
in the first four parts. 


The appendixes in the back of this 
manual provide maintenance personnel with 
these service aids: 
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1. Label list 
2. Messages cross-reference list. 


Effective use of this publication requires 
an understanding of IBM VSE/Advanced 
Functions operation and the Assembler 
language and its associated macro 
definition language. Reference 
publications for this information are 
listed below. 


Information and Imperative Macros, 


LY 24-5209. . 


e YVSE/Advanced Functions Diagnosis 
Reference: LIOCS Volume 3, DAM and ISAM, 
¥ 24-5211. 
e YVSE/Advanced Functions Diagnosis 
Reference: LIOCS Volume 4, SAM for DASD, 
Y 24-5212. 
e YSE/Advanced Functions Messages, 
C 33-6098. | 
e VSE/Advanced Functions Diagnosis 
Reference: Supervisor, LY33-9091. 


e System/370 and 4300 Processor 
Bibliography, GC20-0001. 
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This volume of the VSE/Advanced Functions 
Logical IOCS maruals contains detailed 
information on the logical IOCS support of 
unit record, magnetic tape, diskette, and 
device independent files for non-DASD 
devices. For sequential DASD see 
VSE/ZAdvanced Functions Diagnosis Reference: 


This volume contains no general 
information apart from a brief introductory 
description of each of the file types 
covered. If you want to get an overall 
view of the concept of logical IOCS, or an 
idea of the functions performed by the 
imperative macros, refer to VSE/Advanced 
1, General Information and Imperative 
Macros. Volume 1 also contains 
descriptions of the generalized open/close 
routines, and DASD file protect, VTOC dump, 
vToc display, and message writer 
subroutines. 


Information on all the logical IOCcS 
items (modules, DTF tables, imperative 
macrcs, open and close routines, etc.), 
required for the particular file types 
discussed can be found in this manual. The 
only exceptions are certain common and 
special-purpose routines which cannot be 
related to any specific file type or which 
apply to more than one file type; those 
routines are covered in Volume 1. 


The files discussed in this volume are 
divided into four categories: 


e Unit Record files 
e Magnetic Tape files 


e Device independent files for non-DASD 
devices 
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INTRODUCTION 


e Diskette files. 


Files within a given group are presented in 
alphabetic sequence according to the last 
two letters of the DTFxx macro that defines 
the file (that is, DTFCD, DTFCN, ... 
DTFPT). Access to information on a 
particular file type can be made through 
the index. The information relating to a 
file type includes, in the order presented: 


e The file definition (DTFxx) macro. 
e The module generation (xxMOD) macro. 


e The imperative LIOCS macros (GET, READ, 
etc.) used with the file. 


e The special open and close routines, if 
applicable. | 


e The special-purpose routines, such as 
message writers, if applicable. 


Part 5 contains the generalized and 
detailed flowcharts of the imperative LIOCS 
macros supported by each of the data 
handling logic modules and the logical 
transients required for open, close, and 
other special functions. / 


The logic supporting each of the 
imperative macros has been flowcharted from 
macro language (source statement) listings. 
In some instances these flowcharts contain 
decision blocks to illustrate the logic 
included in the module for certain xxMOD 
macro parameter options. You should 
realize that these decisions do not appear 
in an assembly listing, but rather that a 
particular assembly listing is the result 
of these decision being made at the time 
the logic module is generated. 
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UNIT RECORD FILES 


Logical IOCS surprorts files on the 
following IBM devices generally categorized 
as unit record equipment: 


1z25(D) Display Operator Console 
1017 Paper Tape Reader 

1018 Paper Tape Punch 

1255/1259 Magnetic Character Reader 
1270/1275 Optical Feader/Sorter (these 
devices are not available in the United 
States) 

1287 Optical Readers 

1403 Printer 

1419 Magnetic Ink Character Readers 
1442N1 Card Fead Punch 

1442N2 Card Punch 

1443 Printers 

2501 Card Reader 

2520B1 Card Kead Punch 

2520B2/B3 Card Punch 

2540R Card Reader 

2540F Card Punch 

2560 Multifunction Card Machine 
2596 Card Read Punch 

2671 Paper Tape Reader 

3203 Printer | 
3210 or 3215 Console Printer Keyboard 
3211 Printer | 

3262 Printer 

3289-4 Printer 

3504 Card Reader 

3505 Card Reader 

3525P Card Punch 

352ERP Card Punch with read feature 
3800 Printer 

3881 Optical Mark Reader 

3886 Optical Reader 

5203 Printer 

5424/5425 Multifunction Card Unit. 


The files used with these devices are 
defined by a DTFxx declarative macro and 
the data handling LIOCS module is 
generated, excerpt for console files, by an 
associated xxMOD macro. (The DTFCN 
declarative macro not only defines the file 
but alsc provides the data handling logic 
module for conscle files.) 


The files described in this part 
include: : 


e Card - card readers and punches 

e Console 

e Optical Reader 

e Magnetic Ink Character Recognition 
e Printer 

e Paper Tape 


e Optical Reader/Sorter. 
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INITIALIZATION AND TERMINATION 


Processing of a file by logical Iocs 
requires that the file be initialized, or 
opened, prior to the transfer of any data 
by the problem program. Likewise, when the 
transfer of all data is complete, the file 
has to be closed. 


With the exception of magnetic ink and 
optical reader files, which are handled 
separately, all unit record files are 
opened by the unit record open logical 
transient phase, $$BOURO1, fetched by the 
Open Monitor (refer to VSE/Advanced 
Functions Diagnosis Reference: LIOCS Volume 


4d). On the other hand, unit record files 


(except magnetic ink character reader) 
require no special termination procedures 
and are closed by the Close Monitor which 
Simply resets the open indicator in the DTF 
table for the file. Additional Open and 
Close processing is required for the 3800 
printer. 


bijective: To open a unit record file. 


Entry: From the Open Monitor. 


e To $$BOPEN, if the next file to be 
opened is not a unit record file. 


e To the problem program, if no more files 
are to be opened. | 


e To $$BOMSG1, to print out the error 
messages 


4883I INVALID LOGICAL UNIT 


e To $$BOMRCE, if the file to be opened is 
a 3505 or 3525 card read file using RCE 
or OMR. 


e To $$BOPR3 if the file to be opened is 
for a 3800 printer. 


Method; Entry to $$BOURO1 is from the OPEN 
Monitor, $$BOPEN1, after the monitor has 
built the Open table in the top of the 
transient area and validated the limits of 
the DTF. This is the proper phase for 
opening DTFs types 00 through 08 as 
indicated in byte 20 of the DTF. 


The SYSIR macro finds the referenced 
LUB, and message 4883I is issued if it is 
unassigned. If the LUB specifies that the 


logical unit is to be ignored, a bit is set 
in the DIF kut ro message is given. If the 
LUB is assigned, this routine opens unit 
record files for the following DTF types by 
performing the functions indicated: 
1. Reader. The open switch is turned on. 
2. Frinter. The open switch is turned on, 
and an I/O register is loaded if there 
are two IvO areas. If the printer has 
the universal character set feature, a 
set mode instruction is issued to allow 
or suppress data checks in accordance 
with user's choice. For the 3800, the 
set mode instruction is not executed in 
$$BCURO1, but is executed in $$BOPR3 
via a SETEPRT macro. 


3. Punch. The open switch is turned on, 
ard an I/O register is loaded if there 
are two I/O areas. 


4. Paper Tape. The open switch is turned 
on, and an I/O register is loaded if an 
output file with two I/O areas is used. 


After the DTF is initialized by turning on 
the open indicator, this phase determines 
if there is another unit record file to be 
opened. If nct, ccntrol is returned to the 
problem program, via an SVC 11. If the 
next file is not for a unit record, the 
Open Mcnitor is called. 


at Open Routine, 


Objective: Build 80-byte records 
corresponding to the format descriptor 
cards read from OMR and RCE and set the 
device mode. 


Entry: From $$BOUR01. 


e To $$BOPEN, if there is another file to 
be opened. 


e To the problem program, if no more files 
are to be crened. 


e To $$BOMSG1, to print out the error 
message: 


4899I INVALID FORMAT CARD(S) 


$$BOURO1 open unit record routine after 
$$BCURO1 determines that OMR or RCE is 
specified for a 3505 or 3525. $$BOMRCE 
clears the format descrirtor record buffer 
and determines which of the Boas OMR or 
RCE, is specified. 


The format descriptor cards are read and 
their validity is checked. The message 
4899I is issued if they are invalid. An 
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80-byte format descriptor record is built 
corresponding to the format descriptor card 
and the device mode is set. 


CARD DEVICE FILES 


r 


Card Device (CD) files are those files 
associated with a card reader and/or a card 
punch, or a 3881 Optical Mark Reader. The 
IBM devices supported include: 


1442N1 Read Punch 

1442N2 Punch 

2501 Reader 

2520B1 Read Punch 

2520B2 Punch 

2520B3 Punch 

2540R Reader 

2540P Punch 

2560 MFCM 

2596 Card Read Punch 

3504 Card Reader 

3505 Card Reader 

3525P Card Punch 

3525RP Card Punch with read feature 
3881 Optical Mark Reader 

5424/5425 Multifunction Card Unit. 


The files associated with these devices are 
defined by the DTFCD macro. 


DIFCD Nacro 


Three types of DTF tables can be generated 
by the DTFCD macro. The DTF table type 
generated for a particular file depends on 
the TYPEFLE= parameter specified by the 
user in the DTFCD macro. The three table 
types ares; 


e DTFCD: Input (Reader) if TYPEFLE=INPUT 
(see Figure 1). 


e DTFCDs Output (Punch) if TYPEFLE=OUTPUT 
(see Figure 2). 


e DTFCD: Combined (Reader/Punch) if 
TYPEFLE=CMBND (see Figure 3). This 
parameter can be specified for 1442N1 or 
2520B1 reader punch, or a 2540 punch 
with the punch feed read (PFR) feature. 


The generated DTFCD table contains 
information describing the file and serves 
as a linkage to the CD logic module that is 
generated by a corresponding CDMOD macro. 


Specification of DEVICE=2501, 
DEVADDR=SYSRDR or SYSIPT, and IOAREA2 leads 
to generation of a special version of 
double-buffer support, which will provide 
for increased throughput for SYSIPT and 
SYSRDR files on an IBM 2501 card reader 
attached to a Model 115-2, Model 125-1, or 
Model 125-2. 
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SS SS SSS SS SS ee ee eee 
| Bytes* | Bits | — Contents { Function | 
(i—--—— : eee nen aera ee et nn ee ceemmmeenmmne | 
{ 0-15 | | | CCB. | | 
| (00-OF) | { ( | 
{ | I i | 
; 8 (8) { Oo | {71 = 2501 double-CCW support. | 
| i | i | 
{| 16 { 0 | 1/1 = OMR!, O = omitted. | 
i (10) ] 1 | {1 = ERROPT2, 0 = omitted. | 
i { 2 | }COBOL open; ignore option. ; 
{ i 3 |{ {1 = GET issued3, 0 = GET not issued”. | 
| | 4 | |DTF table address constants relocated { 
| | | {by OPENR. | 
{ { | | [ 
I i |File Association: | 
| | 5-7 | {000 = READ only | 
| | | {010 = READ/PRINT* | 
{ { | {101 = READ/PUNCH/PRINTS | 
| { | j;001 = READ/PUNCHS. | 
| i | | | 
{ 17-19 | { jAddress of logic module. { 
| (11-13) | | 
1 { | | | 
{ 20 | jx*o2? | DIF type. | 
i (14) { }x'o5* [DTF type for 2560 or 5424/5425. | 
l ( { [ | 
{ 21 | oO | 1/71 = open; 0O = closed. | 
| (1§) i 1 | {First time switch. | 
| i 2 | {1 = 1442 or 2596; O = other | 
| { 3 (| 171 = 2560, 3525, or 5424/5425; O = other. | 
| j q | 11 = 3504 or 3505; O = other. | 
i | 5 | j1 = 21/0 areas; 0 = 11/0 area. | 
| | 6 | {1 = 2520; 0 = other. | 
i | 7 | 171 = 2540; 0 = other. | 
| | | | | 
{ 22 i {B*SSFOX010! {Normal command code (not for 2560 { 
| | i Jor 542475425). { 
{ (16) ] | {SS: 00 = pocket1, 01 = pocket2, i 
( { | | 10 = pocket36&. | 
{ | | {(F : 1 = column binary3, O = EBCDIC. | 
{ | | {X : 1 = OMR or RCE3, O = neither. | 
| | |B*HOBO0O010! {Read command code (2560). | 
{ | | {1H ;: 0 = hoppert, 1 = hopper2. i 
{ ] | {B : 0 = EBCDIC, 1 = column binary. | 
{ | {B*HMMMOO11° {SS command code (5424/5425). { 
| | | {H : 0 = hopper, 1=hopper2. | 
| | | (MMM: 001 = stacker1,010=stacker2. i 
| | | i 011 = stacker3,100=stacker4. | 
( { [ l [ 
{ 23 { | {Control command code (not for 2560 { 
{| (17) | | Jor 5425). | 
| ] {B*HOBO0O010! {Read command code (2560). { 
| | {B*HMMMOO11°! iSS command code (5424/5425). { 
| { | {H : 0 = hopper1,1=hopper2. | 
| | | {MMM: 001 = stacker1,010=stacker2. { 
( | | | 011 = stacker3,100=stacker4. | 
{ I { { | 
{| 24-27 | | jAddress of IOAREA2. (If IOAREA2 is not { 
{ (18-18) | | jspecified, address of IOAREA1.) { 
i ( l | | 
{ 28 i oO | {1 = 2560; 0 = other. | 
{ (1¢C) { 1 | {71 = 542475425, O = other. | 
{ {| 2-7 | {Not used. { 
a aes cin ina cans sec ees cet Sas cs tn “nrc Sasi i ec heel ans nets Serene ee a nl es el ca Sis pce Ss “a i ms Ses Ni mcr i hse in tans sr em nm i i i mem aa a i akc las aes 


Figure 1. DIFCL: Input (Reader) (Part 1 of 4) 
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a a a i a 
| Bytes* | Bits | Contents ] 7 | Function | 
ST SS SS SS = SS SS Se { 
{| 29-31 | { {Address cf EOF routine. { 
| (1D-1F) | | i ~~ 
l | { ( | 
{| 32-39 | { |Read CCW (2560). | 
| (20-27) | | j|Stacker select CCW (5424/5425). | 
(SS a ee a eet eterna f 
{Bytes 40-48 as used for all files except 2560 and 5424/5425 files. | 
|-------—__----—----——— = SS a rn nn | 
1} 40-43 | {LA SIOREG,0(14) {Load user pointer register. { 
{ (28-2B) | {NOP O | | 
{ { . | | 
| 44-49 | {| MVC O(&BLKSIZE,13),0(14) |Move IOAREA to WORKA. | 
| (2C-31) | | NOP O | | 
| | {| Dc x*00005 | | 
i ma eth wn ia cc i et’ ‘ec eos es ei eed inn Ss a ceo eisai ig cs Si tt et cs cae i Sas ci ms ce nh ee ai sa Sci in kt ie ian nc si cine cs oi i eae a i i Se ep | i 
{The following Eytes (50-105) are used for 2501 double-CCW support. | 
|-- SS SS SSS SS a ne ee rman | 
{| SQ0-55 | | {Unused CCB. { 
| (32-37) | | lL . 
; | { | 
} 56-71 | | | | 
| (38-47) | 1 | |. 
i | { | | 
| 72 | O | {1 = OMR!, O0 = omitted. | 
| (48) | 1 | {1 = ERROPT2, O = omitted. | 
| | 2 | | COBOL open; ignore option. | 
{ {| 3 | {1 = GET issued3, 0 = GET not issued’. [ 
| { 4 | jDTF table address constants relocated | 
| | | jby OPENR. 1 
; | | | 2 
| | | {File Association: | 
| { 5-7 | {000 = READ only { 
| | | }010 = READ/PRINT*4 j 
| | | {101 = READ/PUNCH/PRINTS | 
| | | {001 = READ/PUNCHS. | 
( | | i » fe 
{| 73-75 | | |Address of logic module. { 
| (49-48) | | | | 
| | [ | | 
| 76 | 1x'o2!* {| DTF type. | 
} (4C) | }x¥*'O5S! {DTF type for 2560 or 5424/5425. | 
| | { i | | 
| 77 1 0 | {1 = open; 0 = closed. | 
| (4D) } 1 | {First time switch. { 
{ | 2 | {1 = 1442 or 2596; 0 = other. { 
| i 3 | 11 = 2560, 3525, or 5424/5425; 0 = other. |. 
| | 4 | 171 = 3504 or 3505; O = other. | 
| i 5 | {1 = 21/0 areas; 0 = 11/0 area. ; 
{ { 6 | {1 = 2520; 0 = other. | 
{ | 7 | 11 = 2540; O = other. | 
{ i | i . | 
| 78 | IB*SSFOX0108 |Normal command code (not for 2560 | 
{ | | Jor 5424/5425). | 
{| (4E) | | 1SS; 00 = pocket1, 01 = pocket2, ; 
[ | | 10 = pocket3é6. | 
| | | iF : 1 = column binary3, 0 = EBCDIC. | 
| i | {X : 1 = OMR or RCE3, O = neither. ] 
| | {B*HOBOOO 10° {Read command code (2560, 5424/5425). | 
{ { { 1H : 0 = hopperil, 1 = hopper2. { 
{ | | {|B : 0 = EBCDIC, 1 = column binary. | 
i a ces a oc es we es a a ns a et Ss ec wee ei ete Se ee ee cnnin:cchinuaiss case acne capesss eosin cia eapasecles eames maposamnoeen ae | 








Figure 1. DTFCD: Input (Reader) (Part 2 of 4) 
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| Bytes* | Bits | Contents i Function | 
aaa a aa a a a Cs RE a ITS Saas ——-——-—— | 
1 79 | | {Control command code (not for 2560 

{ (4F) i i Jor 5424/5425). 

i | {B*'HOBOOO 10° {Read command code (2560, 5424/5425). 

| 80-83 | | | Address of IOAREA2. (If IOAREA2 is not 
{| (50-53) | i {|specified, address or IOAREA1.) 

i { | | 

| 84 {| 0 | {1 = 2560; 0 = other. 

} (54) } 1 { 11 = 5424/5425; O = other. 

| { 2-7 | {Not used. 

i | i | 

| 85-87 | i [Address of EOF routine. 

| (55-57) | | | 

| | | | 

1 88-95 | | |Read CCW. 

| (58-5F) | ( | 

l | | i 

| 96-99 | [LA SIOREG,O (14) jload user pointer register. 

{| (60-63) | 1NOP O | 

l | { 

| 100-103] [MVC O(&BLKSIZE,13) ,0 (14) | Move IOAREA to WORKA. 

{| (64-67) | {NOP O { 

i ( | | 

} 104-105 {Dc x*'0000! [ 

| (68-69) | | 











{The following bytes (50-57) are used for 3504, 3505, and 3525 associated files. 


RTP CED CRIED CED GRD CED GERD OED RLED COED GHD GREED GUND SELES CED SED SEES CR ED COMED AGEN ELD GEE CIEE SESE COED ND CS ND MINS CEES STD “CER EN GY URL SD CED TD TERETE AES CALE ECT OH 











{} 50-53 | {DC A (name) {If ERROPT=name2. 

{ (32-35) | 1B 16(15) {If ERROPT=SKIP. 

| | 1B 20(15) J}If ERROPT=IGNORE. 

{ | {DC FQ! : {If ERROPT=omitted. 

| | I i 

1 54-57 | {DC A(ASOCFLE) jJAddress of associated DTF table’. 
{ (36-39) | | { (3525 only). 











{Bytes 40 onward as used for 2560 and 5424/5425 files. 


| SED ATO A RD CT SE TIES CORES GEED GFE GEES ERE SEED EY EE GEES GET GERD CRED CRUE SE SEE Gee SReeeor GTO Eee GENE ae epee aNEs ay ep cm Ghee <a om GETS 











| 40-47 | | {Stacker select CCW (2560). 

| (28-2F) | | {Read CCW (5424/5425). 

| | | | 

| 48-51 | {LA SIOREG, 0(14) | 

{| (30-33) | | NOP O | 

| | | i 

{| 52-57 | IMVC O(&BLKSIZE, 13) ,0(14) {Move IOAREA to WORKA. 

| (34-39) | [NOP O | 

| | [DC x*0000! | 

( i l | 

|} £8-63 | ICLC O(L,14) ,64(1) |Test for end of file. 

| (3A-3F) | | {I=4 if MODE=E; L=2 in other cases. 
{ | | | 

| 64-67 | jDC C'y* '! |End-of-file indicator if MODE=E. 
} (40-432) | {DC x'0Cc001022! jIn other cases. 

| i l [ 

{| 68-71 | {DC A (name) jIf ERROPT=name@. 

{| (44-47) | {B 16(15) {If ERROPT=SKIP. 

| | {B 20(15) {If ERROEFT=IGNORE. 

{ | {DC Fo! : {If ERROPT=omitted. 


| 


| aa ee rene IE AIO RORD CED LTS OEE STEED NTS CED SAO STLE AND COED OS RESP PRED ARS SERED LPO GID APE OED ALD ALD AND ED OD ED A TRS A TMD CED CED IED 





Figure 1. DIFCD: Input (Reader) (Part 3 of 4) 
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err rome ee me ee es Te Ee EE ey ee RE gd Fae oe eR Tage A Se We Rte ee na ee ee gee ee eee a eh Pee Oe RE GE eee es a Gee eye a ee gee 
| Bytes* | Bits | Contents | Function { 
arc rr fn an mmc ms ee ern ree | 
{The following kytes are added for 2560 or 5424/5425 associated files. | 
(= Sa aaa aaa alr ra = Se SS S| 
| 72-75 | }DC A (ASOCFLE) |Address of associated DTF table’. | 
| (48-4B) | , | | 
{ l [ 
| 76-81 | [MVC O(&BLKSIZE,14) ,82 (1) | Move card image to IOAREA1. | 
| (4C-51) | i ; I 
( | | i { 
{| 82 { [DC &BLKSIZE.C*' *  — | |Buffer for card image. | 
(52) | | i 7 
{2CMR only for 3504 and 3505. i 
{2ERROPT for 25€0,° 3504, 3505, 3525, or 5424/5425 RFAD file. i 
(373504, 3505, and 3525 with or without CONTROL=YES specified. | 
142560, 3525, or 5424/5425 with or without CONTROL=YES specified. { 
1352560, 3525, or 5424/5425 without CONTROL=YES specified. | 
{°Defaults to pocket2 for 3504, 3505, and 3525. | 
(7Present only when 2560, 3525, or 5424/5425 associated files are specified for the | 
| input DTF. 

i se sess cr a i a a a a Sa a is as sew Sow Sena ea sce ere esd ee er saes eu ode ele gece ied ns ce ee <i ns ea ems eo i cl iia cs nin i ci ei in is i i i ete eal 





*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 1.2 DIFCD: Input (Reader) (Part 4 of 4) 
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j2The bucket bytes handle undefined records. 

|2Valid for 3525 READ/PUNCH, PUNCH/PRINT, and READ/PUNCH/PRINT files. 
{3Valid for 3525 only. 

I*Defaults to pocket2 for 3525. 


A a aaa a aS SS ES SS aR AL SES IE SSE Sa IO SRS) 
| Bytes* | Bits | Contents | | | Function | 
| ee ff cr me a nn nce en es me een enn a enema ames nee meeerans mene memcemncemeneenceecrenmec seccnecerecenerece | 
0-15 | | | CCB. | 

| (90-0F) | | [ | 
; | l { | 
l { [ [ | 
| 16 | Oo | {Not used. | 
| (10) | 1 | {1 = ERROPT3; O=omitted. | 
| i 2 «| {COBOL open; igncre option. | 
| j 3 | {1 = PUT issued2; 0 = PUT not issued. { 
( i uy | |DTF table address constants | 
| | | {relocated by OPENR. | 
{ l { | | 
| | | |File Association: | 
{ {| 5-7 | {000 = PUNCH only { 
| | {011 = PUNCH/PRINT3 
| | | }001 = READ/PUNCH3 
| | | }101 = READ/PUNCH/PRINT3 | 
{ | 1100 = PUNCH/INTERPRET3 | 
i ; | | | i 
{| 17-19 | | jAddress of logic module. | 
J} (11-13) | | [ | 
| I | | [ 
{| 20 | }x*'o4r |DTF type. | 
f (14) | | { i 
i ; ; i | 
} 21 { Oo | {1 = open; O = closed. | 
i (185) | 1 =| |First time switch. { 
|. | 2 { {1 = CTLCHR. | 
| i 3 | 11 = fixed unblocked. { 
| | gy | j1 = variable unblocked. | 
| | S. ‘A {}1 = 21/0 areas. | 
{ | 6 «(|| {}1 = work area. ( 
| | 7 I }1 = 2 CCWs in table. [ 
] [ 7 {| j;O = 1 CCW in table. 
{ i | [ { 
| 22 | IB*SSFO0O018 | Normal command code. { 
{ (16) | { ISS: 00 = pocketi; 01 = pocket2; | 
( | | { 10 = pocket3%. { 
( | | IF : 1 = column binary : 0 = EBCDIC. { 
( | IB*HSSSOO11° {Normal stacker select command code | 
| i | { (2560 or 5424/5425). i 
| | | {H : O = hopperil, 1 = hopper2. | 
| | | {SSS: stacker information. | 
{ ; | | | 
{ 23 | | {Control command code (not for 2560 | 
{ (17) | | for 5424/5425). { 
{ | {B*HSSSOO11* JActual stacker select command code | 
{ [ | 1(2560 or 5424/5425). { 
i { ( I | 
{| 24-27 | {DC A(IOAREA1+x) jAddress of data in IOAREA1. i 
| (718-18) | I i [ 
i | [ | | 
} 28-31 | i { Bucket. 1 { 
| (1C-1F) | | 1 | 
{ 

{ 

| 

| 

| 


Figure 2. EIFCrs Output (Punch) (Part 1 of 3) 
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Soaeaneee Seeetes aaa ee ee a a a aS A 
| Bytes* | Bits | Contents | Function 
| ---——- ——————— SS nn nnn ennemenemmeemmnnas | 
} 32-33 | {LR 12, (RECSIZE) {Undefined records only. | 
1 (20-21) | |NOPR O | | 

| 
: 34-37 | a SIOREG, 4(14) er user pointer register. | 
| (22-25) | {NOP O i ; 
l ( | ( | 
| 38 | QO-2 | {Not used. { 
{| (26) |} 3 | $1 = 542475425. | 
| ; 4 | }1 = 2560. ; 
| | § | {1 = 3525. | 
{ {| 6 j {1 = 1442 or 2596. | 
i {| 7 | {1 = 2520B1. i 
; j | I | 
{| 39 | jpc cf {Blank for eject last card. { 
(27) i | 7 
{For all files except 2560 and 5424/5425 files. | 
an ce re eee re ner tee See a == SS ——— | 
{| 4O-47 | | }EFunch CCW. { 
| (28-2F) | ; I | 
| { | { | 
1} 48-55 | | J|Eject CCW for last card if 2520. | 
| (30-37) | i { 
{|For 2£40 files if CRDERR is specified. | 
|-— SS 3 Se oe meerncerememneicemememmean aren mmcemnemcem meneame enemmeremeeeremaoo | 
| 48-55 | | | Retry CCW. | 
| (30-37) | l { | 
| { i l | 
{ 56-135 | jDC CL8O' ! j}Save area card image. | 
| (38-87) | { [ ) 
{For 3525 Punch/Interpret files. { 
a a a a a a cee ee ee ee | 
4g-S5 | {Load CCW. | 
| (30-37) | | | | 
[ i { i 
{| 56-63 | | {Print CCW. | 
{| (38-3F) | i i { 
( | | | | 
|} 64-127 | jDc 64cr {Print buffer. i 
(40-7F) | | | : 
{For 3525 Associated files. ; 
nn a a ran nan an memes | 
{| 48-51 | {DC A (ASOCFLE) {Pointer to associated file. { 
(20-33) | | , 
ji:The bucket bytes handle undefined records. | 
{2Valid for 3525 READ/PUNCH, PUNCH/PRINT, and READ/EUNCH/PRINT files. | 
{7Valid for 352£ only. | 
|*Defaults to pccket2 for 3525. | 
cs a i ni a ee es ees ee ci a ns cm em em smn sn eeu i ccna es Ss nim ash hn ea i can Sn ccs soos ma nei ici ecm" ins Sains as in ai ii el i oa a al 





Figure 2. CTFCL: Output (Punch) (Part 2 of 3) 
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GED CUPRA EMS (EL AOE AED GAD RE-GEI CREPE ETD GEL CRE CENTS 


{| Bytes* | Bits | Contents { ; ‘Function 











nein RO AES NN ETD 


ee be 
{For 2560 and 5424/5425 files. 


| CED EAD ADD GES LEED GILLS TRO CENTEE ED COD COPD CRD GNC GED CASED RED CREE TES CET OPED CRED OSG GREE OE AOE CAE ORAS CARTS CER GUCED ED COND ERD 





Aa AAD RED AARP CALE RIES CLARE DOTY CA CI SY TEED CTCL LT STG ARG AED TTL SSL STS EY TS LS AS LE ANY SD TTD CO SND ALY CY SD 








A ED A CL ATED ED NS ED ECT SAND ETS D-II COMIRLD CAMMY LTE END ES ERENT SOLARIS LEAD PEERED RAD IORI TNE CIENT CORED CEES 


| 40-47 | | |Eject CCW. 

| (28-2F) | {Dc bot {If FUNC=RP or RPW. 
48-55 | : , eee select CCW. 
| (30-37) | | ; 

( i { : | 

| 56-63 | | {Punch and Feed CCW. 
| (38-3F) | | : | 


|For 2560 Punch/Interpret files. 


| EES GRIP APMED GEL ETLS ED GSE ORD CER OE DED CTD GED ED CPE CHEED CERES CITED ak CEE eee 








SATAY AED GA ARE OSD CED ED ERED GS HUE AD CD COS AED CS RD ce 





SADE AID ENTS ED ED ED EY AED EE CATED EPEC TES AED | 


1 64-71 | | {Load print head buffer one CCW. 
eg ae | 

{| 72-79 | | {Load print head buffer two CCW. 
(| (48-4F) | | | 

[ i | | 

| 80-87 | {Print CCW. 

f (50-57) | | | 

| { | | 

} 88-151 | jéacr * j|Save area for printing line 2. 
| (58-97) | | | 


[For £424/75425 Punch/Interpret files. | 





A ED ALE PTLD HILLY ALES SAD ES TOD | 





a cn a en ee ee i hen ce ethene, 
| 64-71 | | |EFrint CCW. 
| (40-47) | | | | 
a re eee ee ere ae ee ce eD eee ee a ea OD aD ie ESOL SRD eS SS SEO NS A A AR SE SD ST SS we Hn A DS ES ce SE NE | 


[For 25€0 and 5424/5425 Associated files. | | 


| ETP CR CHAD ETN ED CAEP TEED UD ACERS TEED CAND CARD CEE EY GENRE RE ERD GEE) CEU EAD AED LIPO END AUTOR OE-TAD CIND-ORAD DEMD IUD GET ARTY CTTED OTD 





€4-67 | [DC A (ASOCFLE) | | 
1 (40-42) | | | 
| | l { 
| 68 | jpc cf |If mode is EBCDIC. 
j (44) | ;Dc x'0OOo!? {If mode is Column Binary. 
i { ; l 
| 69- { |DC &BLKSIZE.c* * {Buffer for card image. 
| (45- )| | | ! 











j1The bucket Lytes handle undefined length records. 
{2valid for 2560 or 3525 READ/PUNCH, PUNCH/PRINT, and READ/PUNCH/PRINT files. 
{3Valid for 2560 or 3525 only. 
{*Defaults to pecket2 for 3525. 


toe CD PED ED EE ASEUS SENS CME RNY GER? aD CEP VED EY CED EP GED COE RT CEMA NTERED Eten CEP RS CY OS TR EME EEE OSS EAD RD SADE CES 











| 
| 
| 
| 
| 
| 
| 
ar ee cee ee eran ce te ee ne a te cers a eet rence eves 
| 
| 
| 
| 
J 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 2. oDTFCD: Output (Punch) (Part 3 of 3) 


20 LiIccS Volume 2, SAM 


Licensed Material - Property of IBM 








{ Bytes | Bits | Contents | ' Function | 
(=== oa eR! [aaa | 
| O-15 | { { CCB. . | 
| (O0-OF) | { ( i 
{ { [ i | [ 
{| 16 | O-1 | {Not used. ] 
| (10) | 2 | jCOBOL open; igncre option. | 
i 2 | |Not used. { 
| | y | {| OPENR relocates DTF address constants. | 
{ | 5-7 | jNot used. i 
i | i | i | 
{| 17-19 | | {Address of logic module. | 
{| (11-13) | l i | 
| | ( Log. | 
{ 20 | Ix*008 {DIF type. ( 
k (14) | ' I 
i I | ( | 
{ 21 | { | Command code (X"02" for 1442, X'C2' for | 
| (15 ; { ae 2540) - | | 
| [ i 7 | | | 
{ 22 | i Sowkowd code (X'01" for 1442, xX'09' for | 
| (16) ( i (2520, 2540). 
| | I | | 
| 23 | | {Command code (X'01" for 1442, xX'09* for | 
{ (17) ; [2520, 2540). | 
( { { l | 
| 24-31 | | {CCW. | 
| (18-1F) | | | { 
; ( | |. — | 
| 32-35 | | {Input area address. | 
| ee 23) | | { I 
( | | | . ae ee 
| 36-3¢ | i |Cutput area address. ! 
| (24-27) | i { | : ‘| 
| | | i { i 
{| 40-41 | | jInput block size. | 
| (28-29) | { i { 
| | | | [ 
} 42-43 | { {Output block size. | 
{ (2A- mee : | 
l | | aS l | 

; 44-49 | {MVC 0 (&BLKS, 13) ,0( 14) | | 
| (2C-31) | | | { [ 
i l { | l | 
; 50-55 | {MVC O(&OUBL, 14) ,0(13} | | 
| (22-37) | | | | | 
| i | | | | 
| 56-59 | | jEnd-of-file address. | 
{| (38-3E) | { i | 
{ i { t [ 
{| 60-67 | | {Save area. | 
| (3C-43) | { I im 
| { { "Bans as i | | l 
{ 68-73 | {MVC 1(&0UBL=-1,13) ,0 (13) | | 
b (44-49) | : oe 1. | 
| | l od 
| 74-77 | {MVI 0(13), X*4or | | 
| (4A-4D) | i | 1 
| | ( | ae | 
{| 78-79 | | {Constant. (blanks). { 
[| (4E-4F) | ( | . l 
{ | | { | 
{| 80-83 | | {Constant address (bytes 78-79). | 
{ (50-53) | { [ | 
i a cs hansen ie ee ets dees dh es ne em : mm canto coin GSD A ID OED cen EEDA qs ope ce Ae Ate 0 ERED CA AS-i IR <a Pe emesereenesnivemn sareaniseall 











Figure 3. LCTFCE: Combined (Reader/Punch) File 
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CDECD Macro 


The CDMCD macro provides the model . 
statements needed to generate logic modules 
that contain the GET, PUT, and CNTRL logic 
for a card reader or punch. It includes 
the capacity to handle a combined file, 
which uses the Funch Feed Read (PFR) 
feature on the IBM 2540. 
can also be handled on the IBM 1442-N1. 


Over 200 different logical modules can 
be generated frem the CDMOD macro. Because 
it would be impractical to flowchart and 
describe every fossible variation, the 
CDMOD macro internals are flowcharted to 
indicate the many parameter variations and 
combinations that can be handled. 


The CDMOD macro can generate logic 
modules needed to handle all the normal 
record forms applicable to a card reader/ 
punch. A particular CD logic module is 
designed to handle only those items that 
are indicated by the CDMOD macro 
parameters. For instance, if TYPEFLE=INPUT 
and RECFORM=FIXUNB are specified, the 
generated module does not handle output 
files, cr variable and undefined records. 
The logic mcdule can include the use of one 
or two I/O areas, the use of a work area to 
process the reccrds, and the logic to 
handle the CNTRIL macro if stacker selection 
is desired. 


A separate lcgic module is needed for 
every readery/punch record format variation. 


Method: The control code specified by the 


user passes to the CNIRL routine in general . 


register 0. The CNTEL routine then 

modifies the ccrtrcl code as required for 
the file type and device specified for the 
file. The modified ccntrcel code is stored 
in the command code byte in the DTF table. 


If the file is an input file defined for 
a device other than a 1442 or 2596, the 
contrcl operaticn is performed immediately. 
In all other cases, the control operation 
is delayed until the next GET or PUT macro 
is issued. : 


: To read a card (normal or 
Or asscciated file). 
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‘overlap is possible. 


The combined file 


Entry: From a GET macro expansion. 


‘Exit: To the problem program or to the 


user's EOF routine. 


Method: For regular input files when two 


I/O areas are used, I/O and processing 
(Dual I/O areas are 
not valid for associated files.) On the 
first GET operation, one I/O area is filled 
and another SVC 0 is issued before any 
processing is allowed. After the second 
Svc 0 is issued, control returns to the 
problem program so that processing of data 
in the first I/O area can begin. If two 


I/O areas are specified, the first GET 
macro instruction sets a switch, which 


changes the logic flow of all the following 
GET instructions used (in the problen 
program) with this logic module. 


For combined files, IOAREA2 serves as 
the output area if it is specified; and 
IOAREA1 is the input area. If IOAREA2 is 
not specified, IOAREA1 serves for both 
input and output. | 


For associated files, macro sequence 
checking is performed. The GET/PUT 
sequence must be maintained for these 
files. 


For 2560 or 5424/5425 associated files, 


the feed cycle is always connected with the 


read cycle (read and feed). 


With a 2560 or 5424/5425 read associated 
file, some overlapping can be achieved. If 
no card is to be punched, the I/O or work 
area contains blanks. Reading of the next 
card is initiated by: / 


e PUT for the associated punch file (if 
FU NC=RP). 


e PUT for the associated print file (if 
FU NC=RPW/RW) « 


e GET for the next card (if FUNC=RPW/RW 
and a PUT for the print file was not 
issued). 


Although stacker selection is always 


‘connected with the punch file if FUNC=RP or 


RPW, a card that is not to be punched will 
be properly stacker selected by a special 
stacker select CCW. 


CDMOD: PUT Macro, Charts AJ-AM 
Objectives To punch a card (normal or 
combined or associated files). . 


Entry: From a PUT macro expansion. 


Exit: To the problem program. 
Method: For regular output card files, the 
PUT routine punches the next sequential 
record in the file into a card. If 


WORKA=YES is specified in the DTFCD and 
CDMOD macrcecs, the record is built in the 
workarea and then moved to the appropriate 
output area befcre punching is performed. 
If ICARFA2=YES is specified in the DTFCD 
and CDMCD macrcs, overlap of I/O and 
processing is pcessible by alternately 
switching output areas. (Dual I/O areas 
are not valid fcr associated files.) 


For combined files (1442 or 2540 with 
PFR), IOAREA2 if it is specified, is used 
as the output area. If IOAREA2 is not 
specified, ICAREA1 serves as both the input 
and the output area. 


For associated files, macro sequence 
checking is performed. The GET/PUT 
sequence must be maintained for these 
files. 


Punching of a card in a 2560 or 
5424/5425 associated file can be initiated 
bys 


e PUT for the punch file if FUNC=RP. 


e PUT for the associated print file or GET 
for the next card if no printing is to 
be performed if FUNC=RPW. 


e PUT for the punch file or PUT for the 
print file if FUNC=PW. 


CONSCLE FILES 


Console files (CN) are files associated 
with the system 3210 or 3215 console, or 
with the Display Operator Console. A DTFCN 
macro defines these files as input, output, 
or combined files containing either fixed 
unblocked or undefined records. Combined 
files can contain only fixed-length 
records. 


Console files are neither opened nor 
closed Ey lcgical I0cS. 
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Logical IOCS support of console files 
differs from cther files. One macro, 
DTFCN, generates both the DTF table and the 
logic module (see Figure 4). The Version 5 
DTFCN macro generates both table and module 
from statements contained in the source 
statement library. If TYPEFLE=INPUT is 
Specified in the DTFCN macro, the module 
generated supplies the logic for both the 
GET and PUT functions. If TYPEFLE=OUTPUT 
is specified, the generated module supplies 
the logic for only the PUT function. If 
TYPEFLE=CMBND is specified, the generated 
module supplies the logic for the GET, PUT, 
and PUTR functions. 


ic 


TRCN: GET Macro, Chart 


Objective: To read from the system console, 
that is, to allow a record to be typed in 
from the console keyboard. 


From a GET macro expansion to the 
IJ2Xxxxx. 


Exit: To the problem progran. 


Method: Upon entry to the GET routine, the 
CCW command code is set to hex ‘OA for a 
read operation. If UNDEF is specified in 
the RECFORM= parameter in the DTFCN macro, 
the user specified BLKSIZE is moved into 
the byte count area of the CCW. (If FIXUNB 
is specified in the RECFORM= parameter in 
the DTFCN macro, the byte count area of the 
generated CCW automatically contains a 
count of 80.) An SVC 0 is then issued to 
read the record into IOAREA1. If a work 
area was not specified in the DTFCN macro, 
ccentreol returns to the preblem progran 
immediately after completion of the I/0 
operation. 


If WORKA=YES is specified in the DTFCN 
macro, the contents of IOAREA1 are moved to 
the work area before control returns to the 
problem progran. | 
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| 

fbyte 21 contains xX'0O1'° 
[bytes 22-23 contain INPSIZE. 
24-31 {x'09",IOAREA1,X'0O0',BLKSIZE |CCW. 
| (18-1F) | | 


jEnd of table if RECFORM=FIXUNB and WORKA not specified. { 


a Ra aR a A aE Ea Sa CSS Ea SARS aA RE A aa aR 
{| Bytes* | | Contents | Function { 
(aS ee a a rrr na | 
{ O-15° {. | CCB. | 
| (00-OF){ | | a 
| | . | 
| 16 - }x'20° | COBOL open; ignore option. ] 
} (10) ;x'os? | {DTF table address constants relocated by OPENR. | 
{ i | 
{ 17-19 | [Address of logic module: | 
{ (11-13) | |GET and PUT logic if TYPEFLE=INPUT; | 
| | {PUT logic if TYPEFLE=OUTPUT; : | 
| | {GET, PUT, and PUTR logic if TYPEFLE=CMBNDC. : | 
l i | | | | 
{ 20 {x'Q3' |DTF type. | 
} (14) i | | 
( 7 { | | 
{} 21-23 | |For input and output: not used. | 
1 (15-17) | {For combined: | 
i | I 
| | | 
i { | 
[ | | 
| | 
| 














{The following bytes are added to the table if WORKA is specified. ; 





CD EY AILS CT EES ALES DSP RID ADD LY CPA SEO CEE | 





SLATS ED SNEED END SEO END I AIOE | 








ED ED ESA TTD GEE ATE AD CSA PONT CEN CELDT ED QUERY ARO NG GD GAD AND OEE CAD LY GE ERED OEP CED TRATED ENED LD | 


| 32-35 {DC A(ICAREA1) jAddress of I/O area. { 
| (20-23) | | 
{ | | 
} 36-39 {DC FO! j|Register save area. { 
| (24-27) | | | 
[ i | 
| 40-43 |yDCc FO? |Register save area. | 
| (28-2E) | | I 





| ED CEE ED EE AES AED GNEED-CEEP EES COED GEE CED ORD GED GS AES AES EP eS GE EE aE oe SRDS SRD OED A ED ar TD GE AD aE NED COO SEED “ERED CaCI EERED CONN SEND ERT aa OOD OED CE ES SEED CE CORE OR ASTD EN ETS RED ED CURE AE) EY ET -GEEED SOESD AES AED TEED CD a | 


JEnd of table if RECFORM=FIXUNB. 











EAS SEY EAD SOD CURED <A ED SE EE SE GD YY CE ORR ED EES COED OE ED CREED GEES CNY GENET AP GEEEED SRS | 


[The following Lytes are added to the table if RECFCRM=UNDEF. | 











| {DC FQ? j|Register save area. { 
jDC Fro feces save area. | 
ae H*BLKSIZE! ie area size. | 
a ALZ (BLKSIZE-1) ee input files only. , 
{ 











| The following bytes are added to the table if TYPEFLE=CMBND | 


























{ 32-35 |DC A(ICAREA1+BLKSIZE) [I/O area address for input. { 
| (20-23) | | 
[ | | | 
| 36-37 |DC H*ELKSIZE® {Block size. | 
| (24-25) | | 
Onn es cre po cee ce ce cD ED OD eu ce AT ED ED SUD SET ceca en ca nS AUD EDS GAED cu SONOS ch comes ae aoe sane ey arm aamemmeenen ii i cy a Scie em ls See et sa eal 
*Numbers in parentheses are displacements in hexadecimal notation. “ 
Figure 4. DIFCN: Console 
DIFCN: PUT Macro, Chart AP Exit: To the problem program. 
Objective: To write a record on the system Method: Upon entry to the PUT routine, the 
console printer. CCW command code is set to hex '09! for a 
write operation. If a work area and 
Entry: From a PUT macro expansion to the TYPEFLE=OUTPUT are specified in the DTFCN 
label IJPTxxxx. macro, a test determines if a previous 1/0 


Operation is complete. If not, an SVC 7 is 
issued. On a combined I/0 operation 
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(TYPEFLE=INPUT) with a work area specified, 
this test is bypassed. 


If the file definiticn specifies 
undefined records (RECFORM=UNDEF parameter 
in the DIFCN macro) a check is made to 
determine if the BLKSIZE is greater than 
the record length, RECSIZE. (The byte 
count in the generated CCW is automatically 
equal to the BLKSIZE specified by the 
user.) If BLKSIZE is greater, the CCW byte 
count is modified to the value of RECSIZE. 


Note: If RECSIZE is greater than BLKSIZE, 
the output record is truncated. 

In all cases where a work area is 
specified, the record is moved from the 
work area to IOAREA1 before an SVC 0 is 
issued to write the record on the console 
printer. If TYPEFLE=OUTPUT is specified, 
control returns directly to the problem 
program. Otherwise, a test determines if a 
previcus I/O cperation is complete. If 
not, an SVC 7 is issued. 


If ne work area is specified, the record 
to be written is available in IOAREA1, and 
an SVC 0 is issued directly. The routine 
then waits for completion of the I/0 
operation before control is returned to the 
prcblem program. 


length unblocked records only. Depending 
on whether or nct a work area is specified, 
one of the fcllcwing methods is used: 


a- Nc work area specified. When the PUTR 
routine is entered, register 14 is 
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saved and a branch is made to the PUT 
routine. INPSIZE and the input address 
are moved into the CCW and control is 
passed to the GET routine. The output 
area address and BLKSIZE are then 
restored in the CCW. The action bit in 
the CCW is turned off, register 14 is 
restored, and control is passed to the 
user. 


be Work area specified. When the PUTR 
routine is entered, register 14 is 
saved and a branch is made to the /PUT 
routine. The contents of register 0 is 
saved and that register is loaded /with 
the input work area address. INPSIZE 
and BLKSIZE in the DTFCN are 
interchanged. BLKSIZE and endea nmr 
of the output area are then restored to 
the CCW. The CCW action bit is turned 
off, register 14 is restored, and 
control is passed to the user. 





MAGNETIC INK CHARACTER RECOGNITION FILES 


~ 


Magnetic Ink Character Recognition (MICR) 
files are input files processed by 
1255/1259/1419 magnetic ink character 
readers, or 1270/1275 Optical 
Reader/Sorters. MICR type files are 
defined by a DITFMR macro and the processing 
logic module is generated by an associated 
MRMOD macro. 


DIFAR Macro 


The DTFMR Macro can generate two types of 
DTF tables (see Figure 5). The type 
generated for a particular file depends on 
the ADDRESS= parameter specified by the 
user in the DTFMR macro. Although the two 
table types have been combined in this 
publication, the variation in the entries 
for ADDRESS=DUAL are noted in the table. 
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CD LP SEE NP EPA OP-ART RD CAT KNED AN GED SEP GED RIT-D-ARED OD SPL A TEE END AO <DEL ED ALS SAEED TS AED AL CATAL TEED APD OENSA TEES LMG APD MERSHED CED REELED CY ARDEP ETE IIS TOLD CAD SD STALLED GD ELTEY LED GELES CESS ET 


cr a 
|Bytes* {Bits 


f Function 





i 
| ——— nn tt Se ee I 
{| O-§ | {ICCB indicators. | 
| (90-05) | | l 
{ | | | 
{ { i | 
| 6-7 | |Logical class and unit numbers (primary if [CUAL addressing). ] 
| (06-07) | | ; 
( | | I 
i ( | | 
| 8 | |Zero. | 
| (08) { | | 
{ i | [ 
{ { I | 
{} 9-11 | {CCW address. | 
{(09-0B) | | | 
i | ( | 
; [ ; | { 
}12-15 | | Zeros. | 
[(OC-OF) | | { 
i i | | 
{ | ( | 
{16 | O-1 |Not used. | 
1 (10) { 2 {COBOL open; ignore option. | 
| } 3 £|Not used. | 
| {| 4  |{DTF table address constants relocated by OPENR. | 
| | 5-7 |Not used. | 
[ [ | { 
{ | | 
117-19 i |Address cf lcgic module. { 
[(11-173) | | | 
{ | [ | 
i | | | 
{20 | [DTF type = X'QOB! | 
(74) | | | 
| | i | 
i { | l 
121 i {logic module option switches. | 
| (15) { | | 
i {| O  |User disengage - 0 = off; 1 = on. | 
| | 1  |Pregram sort mode - 0 = no; 1 = yes. | 
| | 2 {First time switch (after engage) - 0 = no; | 
| | 3 {Addressing = DUAL - 0 = no; 1 = yes. | 
| { 4 |Waiting - 0 = no; 1 = yes. | 
| { 5 |Read logic indicator - 0 = no; 1 = yes. | 
| | 6 {Not used. | 
i {| 7 #|Supervisor initial read (after open) - 0 = | 
( I | | 
}22-29 | {Symbolic filename. i 
| (16-1D) | ( | 
i | | | 
{30 | |Cpen/Close option switch. { 
{ (1E) {| O {Open indicator - 0 = closed; 1 = open. | 
{ | { 
}31-33 | {|Cpen/Close option switches. { 
| (1F-21) | | | 
| ; | | 
134-35 | |Logic module option switches. i 
| (22-23) | ; | 
i | | [ 
{36-39 | {Error infcrmation status. | 
[(24-27) | | | 
TW scires scene sce sess cr en-au‘ enmci'icces ne tisi agc>'ci ‘auin aces‘ eumece cn cen i i Sime cs cna acs ass ns ens in oh os ips cg cs acc gs <a miso Si esa sb ataas itn sc emits mi am ies ns esas a ae all 


Figure 5. 


CIFMF (Fart 1 of 4) 
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a Foe a ee eg ea eS Ley ee ee ee ee ee ae ¥ ee a TE GE ye eran me Te VEU Seen Megs Oe oe Se ge ee Pe ee ge Oe I Na eee OY ee ee 
{Bytes {Bits | Function . | 
a ee ee ne rere eee | 
{40-41 | jLength of DTF table. i 
1 (28-29) | | | 
| ( I | 
142-43 { {Device type indicator. [ 
| (2A-2B) | | | 
| | | [ 
{44-45 | {Record type. | 
}(2C-2D) | | | 
l { | [ 
(4E-4¢ | {Reserved for future use. | 
} (2E-31) | | | 
1 { | { 
{50-51 | {I/O register. { 
[ (32-33) | l | 
[ ; | [ 
{52-55 | j{End-of-file address. { 
| (34-37) | | | 
{ | | ef 
{5€-59 | {IOAREA2/1 address. | 
| (38-3B) | | | 
l | { l 
{60-63 | {Cocument kuffer size. | 
{(3C-3F) | I [ 
{ l | i 
{64-65 | {Blocking factor/Number of buffers. | 
1 (40-41) | [ | 
( { | i 
{66-67 | }I/O area size. i] 
| (42-43) | | | 
l | I [ 
{68-71 | {Record length. | 
1(44-47) | ; | 
[ | | [ 
{72-76 | jSense information. | 
1(48-4c) | | | 
i i i [ 
{77 | | Supervisor switch. | 
| (4D) { | [ 
[ { | [ 
178-79 i JLogical class and unit numbers (secondary -- for DUAL addressing only). | 
| (4E-GF) | i | _ i 
i | | [ 
180-81 | {Register alignment bytes. | 
| (50-51) | | [ 
t. { | | 
{82-83 { JLogical class and unit numbers (primary -- for DUAL addressing). | 
P(22e53). || | | | 
i | [ | 
| 84-87 { {Document buffer size. | 
[ (54-57) | { | 
{ [ { | 
{88 | {Command code (4C). ; 
| (58) [ | 
{ i | [ 
{89-91 | JAddress of last byte of first document buffer. | 
[(59-SB) | | [ 
{ l | . { 
{92 | {Command code (4C). | 
{ (SC) | | | . | 
[ { | | 
(93-95 | {Address of last byte of last document buffer. ] 
[(SD-5F) | [ | 
oot a a ha i ee oy 








Figure §. DIFMR (Part 2 of 4) 
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iBytes* {Bits | Function | - ; ae | i 
{- om ame ee eemenee wenn ee ee wae mae re ae te te _ SS SS A NS ES NS AS TT a SS NN RI A SD NY Se re meee emer ce | 
196-99 | |Stacker-select routine address. : | 
| (60-63) . | : | . 
radosies | {Address of stacker select CCW chain... ! 
et | eee | 
1104-107 | |Current buffer address pointer (Supervisor) . { 
| (68-68) | | | | 
i i | | 
{108-111 | j|Supervisor count. j 
J} (6C-EF) | | | 
( | ( | | 
{112-113 | (Number of buffers minus 7. ] 
1 (70-71) | | 
i | | | 
{7114-115 | |Message indicator. | 
| (72-73) | | | 
{ i ( | 
1116-119 | {ERROPT routine address. | 
cot | : 
{120-121 | jLogical class and unit noelee (secondary -- for DUAL | 
1 (78-79) | jaderess+ nd only). | 
{ l | | 
{122-123 | j|Reserved for future use. | 
(| (7A-7B) | | 
{ 

{124-127 | jAddress of last buffer given to user. i 
oe , | 
{128-131 | jAddress of first byte of last buffer. | 
(80-83) | | | 
| { i : | 
{132-139 | {Channel status word (CSW). | 
| (84-8E) | | ) 
l | 

1140-143 | jJAddress of active GET record. | 
| (8C-8F) | | | 
{ | i | | | 
{7144-147 | {|GET counter. | 
1(90-93) | 
| i { { 
{7148-15S | {Reserved for future use. | 
| (94-9F) | 





|For SINGLE Addressing 





| 

l 

1160-167 | {CCW - Engage. | 
| (AO-A7) | | | 
{ | | | | 
{168-175 | |CCW - Read. | 
| (A8-AF) | | { 
een | | 
1176-183 | {CCW - Sense. | 
| (BO-B7) | | I 
l { | | 
{184-191 | {CCW - NOP. | 
| (B8-BF) | i [ 
eee | 


Figure 5. DIFMR (Part 3 of 4) 
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Qe eee ae et a er ey ee Seen ne nn ee en ee Nn ee ee a ne ne 
|Bytes* {Bits | Function  % { 
}19Z2-199 | JCCW - Stacker select. { 
| (cO-C7) | ls | 
{ { | | 
{200-207 | {CCW - TIC. | 
[(C8-CF) | | | 
l i i | 
{208-215 | {CCW - Ccntrol. { 
| (DO-D7) | | | 
i | | | 
{216-223 | {CCW - BN. | 
| (D8-DF) | | | 
[ { i i 
}224-231 | {CCW - Read. [ 
| (EO-E7) { | [ 
{ | i | 
{222-239 | |CCW - Sense. | 
| (E8S-EF) | | | 
i | i [ 
{240-247 | {CCW - Disengage. | 
[(FO-F7) ft | | 
| a ree eae mene ae anne amammene nee 
|For DUAL Address Adapter 5 OR os : a | | 
a | 
{160-167 | j|CCW - Engage. | 
[| (AQ-A7) | | | 
{ | l | 
{168-175 | {CCW - Read buffer 1. | 
| (AS-AF) | | [ 
[ ( [ | 
[176-183 | {CCW - Sense. | 
| (BO-E7) | i | 
{ { | | 
1184-191 | |}CCW - NOP. | 
|(B8-BF) | | | 
{ | ; | 
{1¢$2-199 | {CCW - Read buffer 2. | 
P(CO-C7) | | | 
i | | l 
{200-207 | |CCW - MOD sense. | 
| (C8-CF) | | | | [ 
t { i | 
{208-215 | {CCW - Read buffer 1. | 
| (DO-TC7) i | | 
{ i | l 
{216-223 | {CCW - MOD sense. | 
| (D8-DF) ( | | 
{ [ { it | i 
{224-231 | j|CCW - TIC to NOP. | 
| (EO-E7) | | | 
{ { { | 
J232-239 | {CCW - NOP. | 
[| (E8-EF) | i [ 
| i { | 
{240-247 | {CCW - MOD CTL. | 
[| (FO-F7) | | 
I [ | [ 
1248-255 | {CCW - Stacker select. | 
[(FS-FF) | | { 
ts 3 { [ 2,2 | 
(256-263 | |CCW - MOD sense. { 
{ (100-107) | | 
| ees ee cams nes ian sons Sse iS t ags <i nebo ss sei aes a oe ems ciao aes agai tr coe ca scent: sam eet se copa cea ee eos 














*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 5. CUTFMF (Part 4 of 4) 


Unit Record Files 29 


Licensed Material - Property of IBM 


MREOL Macro 


The MRMOD macro provides the necessary 
logic to process Magnetic Ink Character 
Recognition (MICR) and Optical Reader/ 
Sorter files. The logic module can handle 
MICR type files with either dual or single 
addressing. 


The functions of the MR logical I0CS 
module are: 


1. To locate the record (document buffer) 
to be processed (GET/READ). 


2. To test for a “document ready for 
processing" condition (CHECK). 


3. To start and stop the feeding of 
documents through the device (DISEN; 
disengagey engage is an automatic 
function cf GET or READ). 


4. To turn on the pocket lights (LITE). 


5. To exit from the partition, when no 
useful prcecessing can be performed 
(WAITF). 


The READ, CHECK, WAITF macro combination is 
provided for users operating more than one 
1255/712£9, 127071275, or 1419 in a given 
partition of the system. The READ macro 
perfcrms all the functions of the GET macro 
except the inherent wait that occurs when 
no document is ready for processing. 


The READ macro posts an indicator in the 
current document buffer signifying that the 
buffer is not ready for processing. The 
user examines the status of this indicator 
by issuing the CHECK macrc. 


The WAITF macro determines if processing 
can continue. If processing cannot 


continue, the system is allowed to continue 
processing in ancther partition. 


Objectives: To determine the status of the 
current document buffer: 


1. Buffer ready for processing. 
2. Buffer waiting for data. 
the label IJUCHEK. 


3 To the preblem program at one of 
ee lccations: 
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1. The next sequential instruction if the 
document buffer contains data and is 
ready for processing. 


2. The address specified in the label 


operand of the macro if the document 
buffer is waiting for data. 


3. The ERROPT address specified in the DTF 
if the document buffer contains poskee 
error-condition indicators. 


Method: The CHECK macro first tests the 
condition of the wait bit (bit 5 of the 
first byte) within the current document 
buffer. If this bit is on, indicating that 
the device is waiting for a document to be 
read, a branch is made to the address 
specified in the second (label) operand of 
the CHECK macro. This bypasses normal 
record processing and allows continuation 
of other processing in the partition. If 
the second (label) operand is not specified 
in the CHECK macro, control is passed to 
the ERROPT address. If neither address is 
specified, a kranch is made to the next 
sequential instruction following the CHECK 
macro expansion. 


If the wait bit is off, a second test 
determines if the Buffer Status Indicator 
(BSI) bit (bit 0 of the first byte within 
the current dccument buffer) is on. If the 
bit is on, indicating that the data is 
valid and ready for processing, a branch is 
made to the next sequential instruction 
following the CHECK macro expansion where 
normal processing resumes. 


If both bits are off (bits 0 and 5), 
indicating either that the device is not 
operational or that the document buffer 
data is in error, a branch is made to the 
ERROPT location specified in the DTF for 
further analysis of the error conditions by 
the user. If the ERROPT location is not 
specified, a kranch is made to the next 
sequential instruction following the CHECK 
macro expansion. 


MRMNOD: GET Nacro, Charts BA-BB 


Objectives: 

1. To provide a pointer, in the user 
register IOREG, to the next document 
buffer to be processed in the document 
buffer area (see Figure 6). 


2. To issue engage commands to the MICR 
device when necessary. 


Entry: From a GET macro expansion to the 


label IJUGETCK. 


Document 
Buffer Area 


















Error 



















Document Sense 
Buffer Information | Information 
(LOREG) 0 1 2 3 





Batch Numbering Update 
Document Buffer Status Indicators: 


Hex 02: Closed 

Hex 04: Wait 

Hex 08: Intervention Required 

Hex 10: Unit Exception 

Hex 20: Unrecoverable I/O Error 

Hex 40: Recoverable |/O Error (reject) 

Hex 80: Buffer Ready for Processing (BSI bit) 


Figure 6. 


Exit: To the proklem program after a 
document buffer is filled with a 
stacker-selected document, or after error 
conditicns are frosted in the buffer. 


Method: When nore than three records remain 
in the document buffer area, the user's I/0 
register (IOREG) is loaded with the address 
of the next document buffer to be processed 
and the previous document buffer is reset 
to binary zeros. Control then returns to 


the user. 


When three records, or fewer than three, 
remain in the document buffer area, a test 
determines if three or more document 
buffers are empty and it is necessary to 
engage the MICR type device to feed more 
documents. If it is necessary to issue 
engage commands, a branch is made to 
IJUENGCK where the necessary modifications 
are made to the CCW chain and the I/0 
Operation executed. 


If an engage is not required or after 
the engage commands are issued, the status 
of the document Euffer is checked. If the 
buffer is ready for processing, the 
procedure follcwed is the same as for more 
than three records remaining in the I/0 
area. If the dccument buffer is not ready 
for processing, checks are made for errors 
and flags are set in the kuffer as 
indicators cf the error conditions found. 
This information is then passed to the user 
for further analysis. 


Buffer 1 Buffer 2 Buffer 3 Buffer 4 Buffer 5 Buffer 6 


Additional User Buffer Area 
ADDAREA 
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Document Data Area 
(Record) 
RECSIZE 














ia Pocket Document Selected Into 
Stacker-Select Pocket Requested by User 
Error Indicators (Device Sense Information) 


MICR Buffer Format (1255/1259/1270/1275/ 1419) 


1. To provide a pointer, in the user 
register IOREG, to the next document 
buffer to be processed in the document 
buffer area (see Figure 6). 


2. To issue engage commands to the MICR 
type device when necessary. 7 


Entry: From a READ macro expansion to the 


label IJUREAD. 


Exit: To the problem program after a 
document buffer is filled with a 
Sstacker-selected document, or after error 
conditions are posted in the buffer. 


Methods Same as the GET macro except for 
the inherent wait that occurs when the 
document buffer is not ready for 
processing. Instead of issuing a wait SVC 
(SVC 7), the READ macro posts an indicator 
in the document buffer (bit 5 of first 
buffer byte) to signal that the buffer is 
not ready for processing. The user, after 
examining the indicator by issuing a CHECK 
macro, can then transfer processing to 
another location within the partition until 
the buffer is ready for processing. 


Unit Fecord Files 31 


Licensed Material - Property of IBM 







Byte Displacement 






Pocket indicator bits as rearranged 
and stored in module for testing 





Figure 7. 


1. A DISEN macro must be issued before the 
LITE macro is issued. 


2e The unit exception bit must be turned 
on in the CCB in the DTF table before 
the LITE macro is issued. 


light thdicates (see Figure 7) bit by bit, 
to determine and turn on the lights 
specified by the user. After each 
specified pocket light is turned on, a 
check is made for the occurrence of an 
unrecoverable IyO errcr during the turning 
on of the light. If an error occurred, bit 
15 of the pocket light indicator is set. 


The pocket light indicators are tested 
in the sequence: BB, A, 9, 8, 7, 6, 5, 4, 
3, 2, 1, O0- Te turn on a particular pocket 
light, a pocket code is combined with a 
stacker select command code. 


Example: Assume that the light in pocket B 
is to be turned on, that is, bit 1 of the 


pocket indicator is on. 


Upon entry to the pocket light routine 
of the MRMOD, a count of 12 is initially 
loaded into a register. When the actual 
light program lccp is entered (at location 
IJUNXTLT) and it is determined that the 
pocket B light is to be turned on, the 
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User's Two- Byte Pocket Light Area 


MRMOD Test Area “IJULBKT” 





Pocket light test starts at Pocket pf 
and continues through Pocket 0. 


1275/1419 Pocket Light Indicator User Area and Work Area 


The 11 is 
The result is 176, 


count is reduced by one to 11. 
then multiplied by 16. 
or a hexadecimal BO. 


For the single address adapter, the hex 
BO is ORed with a hex OF and results in a 
command code of hex BF. For the dual 
address adapter, the hex BO is ORed with a 
hex 07 and results in a command code of hex 
B7. After the pocket light is successfully 
turned on, the initial count (12) is 
reduced by one and the routine returns to 
location IJUNXTLT to test for the next 
pocket light. 


MRMOD: 


Chart BD 


DISEN Macro, 


Objective: To disengage the 1255/1259, 

1270/1275, or 1419 MICR type device and 
stop the feeding of documents whenever 

necessary. 


Entry: From a DISEN macro expansion to the 
label IJUDISEN. 


Exit: To the problem progran. 


Method: The DISEN macro turns on the user 
disengage indicator (bit 0 of byte 21) in 
the DTF and checks for the type of address 
adapter used with the device. If dual 
addressing is specified, the NOP 
instruction in the CCW chain is changed to 
a disengage instruction, X¥'DF'. If single 
addressing is specified, the chaining bit 
is set on in the CCW chain. 


Note: A DISEN macro must be issued before a 
LITE macro can be issued. 


RMOD: 


cx 


Objective: Te test whether any 1255/1259/ 
1270/1275/1419 MICR devices specified in 
the macro operand (wait list) are operative 
and processing should continue, or if all 
the devices specified are inoperative and 


IOCS should enter the wait state. 


Entry: From a WAITF macro expansion to the 
label IJUWAITF. 


Exit: To the prceblem progran. 


Method: The WAIIF macro loads a work 
register with the address of the DTF table 
for the file specified by the first 
operand. Tests are then made to determine 
if the file is in an operative condition. 
If the file is operative and ready, 
processing is resumed at the next 
sequential instructicn following the macro 
expansion. 


Note: When more than one file is specified 
in the operand of the WAITF- macro (wait 
list), nor@al precessing is resumed after 
the first operational file is detected, 
thereky omitting checking of any remaining 
files in the wait list. To accomplish 
this, the pcinter in the wait list is 
repeatedly incremented by 4 (the length of 
each operand) until the end of the wait 
list is reached (the first nonzero byte). 
When the end-of-the-wait list has been 
detected, the pointer (register 14) then 
contains the address of the next sequential 
instruction following the macro expansion. 


If the file currently keing tested is 
not creraticnal, the address of the DTF 
table for the next file specified in the 
macro operand is obtained and the tests are 
repeated for the next file. 


If none of the files specified in the 
Operand are operational, an SVC 29 is 
issued and processing is allowed to 
continue in arcther partition. When one of 
the files becomes operational, processing 
can resume in the partition in which the 
device is operating. 


Optical Reader/Sorter and Magnetic Ink 
Character Recognition files are some of the 
very few types cf unit record files that 
are opened and closed by logical transients 
included in the system to handle a specific 
file type. These logical transients, 
SS$BCMRO1 and $$BCMRO1, are fetched by the 
Open and Close Mcnitors respectively (refer 
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to VSEZAdvanced Functi 
Reference: LIOCS Volum 


Open MICR Type Files, Chart BE 


To open 1255/1259/1270/1275/ 
419 MICR type files and to initialize the 
document buffer area. 


Entry: From the Open Monitor, $$BOPEN1, to 
the label FRSTINST. | 
Exit: To the TES processor, $$BOPEN. 


Method: The $$BOMRO1 routine clears the 
entire document buffer area and checks for 
device assignment. It then calculates the 
Physical Unit Block (PUB) entry address for 
the device, and determines from the PUB 
anformation which entry in the Supervisor 
table of DTF addresses (PDTABB) is to be 
used. The address of the DIF table is then 
inserted into the proper entry in the 
PDTABB table. Refer to VSE/Advanced 
Functions Diagnosis Reference: Supervisor, 

LY33- 9091, for the format and use of the 
PDTABB table. 


The unit exception bit in the CCB is 
turned on and the remainder of the DTF is 
initialized. The open indicator (bit 0 of 
byte 30) is set on in the DTF to signal 
that the file is open and the TES 
Processor, $$BOPEN, is fetched to determine 
if more files are to be opened. 


$$BCMRO1; Close MICR Type Files, Chart BE 
Objectives To close 1255/1259/1270/1275/ 
1419 MICR type files and to reinitialize 
the DTFMR table. 


Entry: From the Close Monitor, $$BCLOSE, to 


the label FRSTINST. 


xit: To the Close Monitor, $$BCLOSE. 


ite 


Method: The $$BCMRO1 routine resets the 
open indicator in the DTF and the traffic 
(wait) bit in the CCB, and turns off the 
external line status indicator for the 
file. 


MICR Error Messages 


Error conditions occurring on 1255/1259/ 
1270/1275/1419 MICR type devices are 
reported to the operator via a special MICR 
error message writer logical transient, 
$$BMMR20. 
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MICR Message Writer, Chart BF 


Objective: To print one of two error 


messages for MICR type devices: 
1. 4MR1I - EXTERNAL INTERRUPT I/O ERROR 


2- 4MR2IT - SCU NOT OPERATIONAL 


examines the message indicator in the DTF 
table (bytes 114-115) to determine the 
appropriate message. It then extracts 
information from the [TF and CSW, converts 
the informaticn to printable form, and 
inserts it into the message. 


The proper message is then printed on 


SYSLOG and control is returned to the 
logical IOCS module. 
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OPTICAL READER FILES 


Optical reader files are input files 
associated with a 1287 optical reader (OR) 
or with a 3886 optical reader (DR). Files 
for a 1287 optical reader are defined by a 
DTFOR macro; an ORMOD macro provides the 
data handling logic module for this type of 
file. Files for a 3886 optical reader are 
defined by a DTFDR macro; a DRMOD macro 
provides the data handling logic module for 
this type of file. The DFR and DLINT 
macros build format records that are used 
to process 3886 optical reader files. 


DTFOR Macro 


The DTF table generated by the DTFOR macro 
services the 1287 optical reader; either 
journal tapes or documents can be processed 
(see Figure 8). | 


ae aS a a sal oe ee ee en neem 
| Bytes* |Bits | Function ] 
|-—-—— = SSS a a ee { 
| O-15 | {Dummy CCB. | 
{ (00-OF) | ; I 
i { | | 
{| 16 { O-1 |Not used. | 
{ (10) {| 2 |COBOL open; ignore option. | 
| | | 3 |Not used. | 
i { 4  {DTF table address constants relocated by OPENR. — i 
| | 5-7 | Not used. | 
| i | 
} 17-19 | {Address of logic module. | 
| (11-13) | i { 
{ i ! [ 
{| 20 | [DTF type, (X'09°). | 
| (14) | [DTF type, (X'OA' if HEADER=YES) . i 
| | I | 
| 21 | {FIOCS switches. i 
{ (15) {| OO («1 = Open; O = Closed. | 
| { 71 |1 = Input. | 
{ { 2 |1 = Control. { 
| { 3 |1 = Device is 1287. | 
| i 4 |1= Header. { 
i {i 5 {Reserved for future use. | 
{ | 6 {1 = RDLNF. { 
| | 7 #£|[Not used. | 
i ( | | 
{ 22 | {Not used. ] 
} (16) { ; l 
{ | { | 
{ 23 {| O-6 {Not used. | 
{| (17) { 7 {1 = LIOCS posts a hopper empty condition to DTF. | 
( | | | 
j 24-35 | {CCB. | 
| (18-27) | | | 
( { | { 
{| 40-47 | {Sense CCW. | 
[| (28-2F) | I [ 
{ | { | 
} 48-51 |{ {Lost lines (equipment check). ] 
{| (30-33) | | | 
( | | l 
{| 52-65 | jAfter nine retries for journal tape, or after two retries for { . 
! (34-37) | {documents. | 
i I | | 
{| 56-59 | {}Wrong-length records. | 
{| (38-38) | | | 
( { | | 
{ 60-63 | {After four retries for journal tape, or after two retries for | 
| (3C-3F) | {|documents. | 
{ | { | 
| 64-67 | {Keyboard corrections. | 
| (40-423) | { | 
| { | | 
{ 68-71 | {Count of data check errors. | 
} (44-47) | [ i 
| [ | { 
} 72-75 | {Lines marked. | 
| (48-48) | | | 
i { | | 
{ 76-79 | {Total lines read (CCW chains executed). { 
| (4C-4F) | | | 
cate cement ees ce en coast STUN eG cp nD DCSE SRO SD <>< << E--CSP UE--iEb CED = PIBORS SESIDGRONDORLI <I <u h-UA-U-e-Cb< GENERA SSVI sED S O cmmemowarene ameamall 
Figure €. CUIFCK (Part 1 of 2) 
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SS ee re ne ee ee a a a a a’ 
j{Bytes* | Eits| Function | 
| — ne rn rn pon en an en renmmancanam amen mveemrencacmeccemens | 
{| 80 | {Error indicators. | 
} (50) | | | 
| | 0 {1 = EOP. | 
{ {| 1 11 = Lost reference mark indicator. i 
| | 2 |1= Late stacker selection. | 
| { 3 {1 = Non-recovery error. | 
{ 1 4 |1 = Eguipment check. . | 
{ 1 5 {1 = Wrong-length record. | 
| | 6 |1 = Hepper empty. | 
| | 7 |1 = Data check. | 
{ | | { 
{ ( | | 
; 81 | |LIOCS switches. | 
{ (51) | O 41 = First time. | 
| | 1 «1= Two Iy0O areas. | 
| {| 2 |1 = WORKA=YES 
{ | 3 |}1 = RECFORM=FIXUNB | 
| | 4 {1 = RECFORM=UNDEF | 
{ {| 5-7 |Not used. | 
i | | [ 
| 82 | |Normal command code. | 
} (52) | | | 
| { { { 
| 83 | {Control command code. | 
| (53 | | | 
| [ { | 
{| 84-87 | J}IOAREA2 address. | 
| (54-57) | | | 
{ 7 | | | 
1} 88-95 | |Fead CCW. | 
| (58-5F) | | | 
i | [ 
| 96-102 | |Go to next line CCW. | 
| (60-67) | | 
{ | [ f 
}104-111 | {Control CCW. | 
| (68-6F) | | ( 
i | { | 
(7172-115 | |EOF address. { 
| (70-73) | | | 
i | | l 
}116-119 | {Correction exit address. | 
1 (74-77) | | { 
| ( | | 
{120-123 | {IOAREA1 address. | 
| (78-7B) | | | 
{ | | | 
{124-127 | (DC A(&BLKS-1) | 
1 (7C-7F) | | | 
[ | | i 
{128-129 | {SR 13,&RECS | 
1 (80-81) | | | 
; | | | 
{130-1371 | {LR SRECS, 13 | 
| (82-83) | | | 

| | | 
{132-133 | {LR &IOR, 13 | 
| (84-85) | { | 
; | | l 
1134-135 | jSense. | 
| (86-87) | | | 
Cerra ee Pe AR eA at ORE Ae Ee eR eR ee ao oer NR I! 

















*Numbers in parentheses are displacements in hexadecimal notation. 


Figure & DIFOR (Part 2 of 2) 
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ORMOD Macro 


The module generated by the ORMOD macro 
provides the logic to perform the GET, 
CNTRL, and RDLNE functions for the 1287 
(tape mode) optical reader, and the READ, 
WAITF, CNTRL, RESCN, and LSPLY functions 
for the 1287 (dccument mode) optical 
reader. 


For 1287 operating in document mode, the 
logic mcdule hardles only unblocked 
records, and supports fixed and undefined 
record formats. Blocked records are also 
handled if the device is operating in tape 
mode. 


The ORMOD is capable of generating many 
logic modules, each tailored to specific 
parameters. The number of different 
modules that car be generated is so great 
that it would be impractical to flowchart 
and describe every possible variation 
individually. To stay within practical 
limits, the internals of the OR module are 
flowcharted and described to indicate ail 
variations. 


Charts BG 


- 
a <> et a aD —_ «2 cup a= emp _ =e cae 2 


Objective: To execute a control operation 


for 1287 optical reader. 


e When operatirg in tape mode, the control 
operation is either mark a line or read 
a complete line from the keyboard. 


e When operating in document mode, the 
control operation is either eject, eject 
and stacker select, stacker select, or 
increment the document. 


Entry: From a CNTRL macro expansion. 


e Ncrmal exit from the CNTRL routine is to 
the problem frogran. 


e To the user's end-of-file routine when 
an FOF ccndition is reached. 


e To the user's correction routine when a 
recoveraktle error cccurs. 


previcus I/O operation is complete. It 
then sets the appropriate control command 
code (supplied ty the user in general 
register 0) in the CCW and causes the 
control functicr to be performed. 


If the ccntrel function is to read a 
line from the keyboard, the routine checks 
for a unit exception after the read 
operaticn is ccrplete. If the control 
function is other than read a line from the 
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keyboard, and a unit check occurs, the 
routine checks for command reject, late 
stacker select, or recoverable errors. 


If a unit exception or a read keyboard 
operation occurs, or if a recoverable error 
occurs, the CNTRL routine branches to the 
address supplied in the DTF for the user's 
correction routine to attempt a recovery 
from the errcer before returning control to 
the problem program. 


ORMOD: GET Macro, Charts BJ-BN 
Objectives To access a record from the 1287 
(tape mode) optical character reader. 


Entry: From the GET macro expansion. 


Exits To the problem progran. 


cx 


ethod: The GET routine reads a record from 
the 1287 optical reader and places it in 
main storage starting at the high end of 
the I/O area and going toward the low end 
until the last character has been read. 


If two I/O areas or one I/O area and a 
work area are used, I/O and processing 
overlap is possible. On the first GET 
operation, one area is filled and another 
EXCP is issued before any processing is 
allowed. After the second EXCP is issued, 
control is returned to the problem program 
so that processing can begin on the data in 
the first I/O area. If two I/O areas are 
specified, the first GET macro instruction 
sets a switch that changes the logic flow 
of all the following GET instructions used 
in the problem program with this logic 
module. If a work area is specified, the 
contents of the I/O area are moved to the 
work area. The next EXCP is issued, and an 
exit to the problem program is: made. [If 
RECFORM=UNDEF, the contents of the I/O area 
are left-justified in the work area. 


RDLNE Macro, Chart BP 

Objective: To cause a line of data from a 
journal tape to be read in the online mode 
while processing is in the offline 
correction mode. 


Entry: From the RDLNE macro expansion. 


Exits 


To the problem program. 


Method: The routine indicates a keyboard 
correction, modifies the CCW with a read 
backward online command, and issues an 
EXCP. When the I/O operation is complete, 
the routine checks for equipment, 
wrong-length record, and data checks. If 
present, these conditions are posted to the 
DIF, and an exit is made to the problem 
program. 
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Io 


RMNOD: DSPIY Macro 


Objective: Ic cause a complete field of 
data from a document to be displayed on the 
display score cf the 1287. 


Entry: From the DSPLY macro expansion. 


backward CCW by changing the command code, 
input address, and chaining flags. It then 
blanks cut the portion of I/O area into 
which it is reading. An EX¥CP is then 
issued for this CCB. When the I/0 
operation is complete, the routine checks 
for a unit excertion indicating an error 
was made in keying in corrections. The 
command is reexecuted if necessary. If a 
unit exception is not present, an exit is 
made to the protlem progran. 


Objectives To access a record or records 
from the 1287 optical character reader when 
processing dccuments. 


Entry: From the READ macro expansion. 


Exit: To the problem progran. 


Method: The REAL routine reads a record or 
records from a document by executing the 
users CCWs. It is the user's 
responsibility to properly set up the CCWs 


before the REFAD macro is issued. 


an unreadable line of data on a document. 
Also to allow a read in the online mode 
while processing in the offline correction 
mode. 


Method: The routine modifies the CCW to 
allow data checks, and an EYCP is issued. 
After the I/C operation is complete, the 
routine checks fcr and posts equipment 
checks, data checks, and wrong-length 
records. The line of data is retried the 


number of tines specified. 


When the retries are completed, control 
returns to the problem program unless 
forced online correction was specified. In 
the case of forced online correction, the 
CCW is modified to force cnline correction 
and another EXCF is issued. 
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error recovery in addition to its normal 
function of waiting for I/0 completion. 


ntry: From the WAITF macro expansion. 


if a read error occurred or to the next 
sequential instruction following the WAITF 
Macro expansion in the problem program if 
there was no read error. 


Method: After checking for completion of 
the previous 1/0, the routine tests for 
unit check. If unit check occurred, a 
check is made to determine if the cause of 
the interrupt is due to hardware or an 
unreadable character, lost line, etc. If a 
hardware error has occurred, a transient 
error routine is called, and a message is 
printed to the operator. If the error is 
due to an unreadable character or line, it 
is retried up to nine times (depending on 
error), posted to the user and then a 
branch is taken to the user's COREXIT 
routine. On a return from COREXIT, the 
operation is restarted from where the CCW 
chain was broken. Control is then returned 
to the problem progran. 


DFR and DLINT Macros 


The DFR and DLINT macros are used to build 
the format record that is required to read 
from the 3886 optical reader. 


The DFR macro builds the first part of 
the format record, called the Document 
Information Record (see Figure 9); it also 
generates two fields preceding the format 
record to provide information about that 
record. The first field is eight bytes 
long; when the field is opened or when the 
SETDEV macro is issued it contains the name 
of the format record. The second field is 
a 2-byte binary field that contains the 
total length of the format record plus the 
two preceding fields. These two fields are 
not part of the format record and therefore 
not included when the format record is 
loaded into the 3886 control unit. 


The DLINT macro builds the following for 
each line described: 


e A line information record to describe an 
individual line (see Figure 10). 


e A field information record that 
describes an individual field on the 
line that is to be scanned (see Figure 
11). 


e A field information record that 
describes an individual field on the 
line that is not to be scanned (see 
Figure 12). 
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e A sync byte of X'FF' to indicate the end this last field is generated by the DLINT 














of the DLINT expansion. macro. 
In generating these records, the DLINT Figure 13 shows how the DFR and DLINT 
macro calls an inner macro (DLINTIN) 15 expansions combine to form a format record. 
times to generate all fields on the line An extra sync byte is generated to indicate 
except the last field that is not to be the end of the format record. 
scanned. The field information record for 
eS SS SS Se ee ee re 
{| Bytes | Bits | Contents | Functions | 
| ---——-- -——- +} —- 4 nn ee enn | 
; 0 | |X'3F" or user-speci-|Hex code sent by the 3886 for an unrecognizable i 
{ | j}fied character code | character. | 
i l | l | 
{ 1 | | ;Bit on indicates which font is on document. | 
; i; 0 { {Numeric A font. |. 
{ j 1 | {Alphanumeric A font. | 
i i 2 | | Numeric B font. | 
j } 3 | {Alphanumeric B font. | 
| i 4 | | NHP/Gothic font. | 
i ; 5 ( {National NHP/Gothic font. | 
| { 6-7 | |Not used. | 
i | | | | 
{ 2 j 0 }1 jAllow group and character erase characters. | 
{ | 1-3 | {Serial and batch number control. | 
| | 1B*0008 {No numbering. | 
| | jB*OO1!8 {Batch and serial number stacker A documents. | 
{ | {B'010* |Batch and serial number stacker B documents. \ 
| | {B'o11! {Batch and serial number all documents. | 
{ | jB*101°* |Batch number stacker A documents. | 
{ | {B'110°* |Batch number stacker B documents. | 
j ] {B'111° {Batch number all documents. | 
| | 4-7 | | National symbol set options. | 
| | 1B*0000!8 ' JAllows recognition of different font characters [ 
| | | ‘ {for specific hex codes. ( 
[ i | . | { 
{ | }B*01018 l [ 
{ | [ | | 
| 3-8 { JEdit character JEdit characters: characters that can be removed | 
| { jor x00? {from a field read. | 
a ac cen ee as cats Se ss es as Se es ee ee ee ee a oe Sci mec ss Sem Gis in el i me ins inne as cue ‘ca i mins ns ci Si cm ei wei ein meee isa 
Figure 9. CFR Macro Instruction Expansion - Document Information Record 
Da ee et pr ee ge ae ee ee ee pee ag Te wee eG Ce a Se ae gD Oe Ge Pee oe eT a eR GeO ae Pet Be et ep wR gan ian Be me ea ete 
{ Bytes | Bits | Contents | Functions | 
mh nn rn nr rn rn en en a nen en meena cas a mentees 
{ 0 | {X'OO" - X'3F j{Line format record number; a unique number for [ 
| i { Jthis group of line format data (0-63). | 
{ | | { | 
{ 1 i | J Left margin; the address in BCD of the leftmost | 
| | | jside of the leftmost field to be scanned on this | 
{ | | | line. | 
{ { | | , | 
{ 2 i Oo {B to? jEdit format selected for data record. Aliso | 
| ] | Jallows edit function. { 
| { jB't' {Image format selected for data record. Inhibits | 
I | | jadd/delete functions. | 
| {| 1-7 |Btoodod000! {Not used. | 
ae se sees cel aks sans tench nin nip ses “eve fas ies ‘aw enon es xl ois Son cscs st mo nao lsc eb meme ani sins nin mts vm eens ms min mpi sap semen i muy ‘a csi Pi es nsx cc ins nts ca ‘cc ae ss eis rt iis ms om amin ine call 


Figure 10. DLINT Macro Instruction Expansion - Line Information Record 
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cr tigi Pcie ant nt? tapi eet 8 ee ee eee eee au ee neg 8 8g Oe ee ae 
{ Bytes | Eits | Contents - { : Functicns Po Be : a | 
| -—------—-—+------+-—----——-- ——— |}  — aaa ae me mere et om 
| 0 | {Address or character|Address of the right end of the field in ECD, or {| 
| | | {Hex code of character used as field delini ter | 
( | | | 3 ca : | 
i; 1 1} oO {B'o? . {Byte 0 represents character delimiter. | 
| ( {Bt |Byte 0 represents address. { 
| { 1 jB ft | Indicates that the field is a critical field. | 
| | 2-4 |BrOOOo! - INot used. | 
| | S-7 |BtOO0! | Suppress high/low blanks - low fill. | 
| | 1B*0018 |Suppress high/low blanks - high fill. ] 
i | 1B*0O108 {Transmit all blanks - low fill. | 
| | {B'o118 . {Suppress all blanks - no fill. | | 
{ \ 1B*'100! {Suppress all blanks - low fill. { 
{ { }B'101°¢. {Suppress all blanks - high fill. { 
| | ( | i | te | 
{ 2 | oO {Bit | Enable character edit for this field. | 
{1-7 | | Field length. | { 
{ | | i [ 
{ 3 { Q-3 1B*O0O00! | Not used. | 
| {1 4-7 |Bt0000!8 |Field is not to be scanned. [ 
| | }B*O001!8 | |}Field is mark read A font. i 
{ | {B'0010" | | Field is mark read B font. { 
i ] {B'0101" | {Field is numeric B font. | 
{ | {B*01108 {Field is alphanumeric B font (mode 1). | 
| { 1B'1001° | Field is numeric A font. | 
| { {B*1010°* |Field is alphanumeric A font (mode 1). | 
i | {B'10171° |Field is alphanumeric A font (mode 2). ] 
| | 1B'117100° | |Field is NHP. | 
{ | {B°1101°* {Field is Gothic (must have NHP feature). | 
| | 1B*1110! {Field is NHP (low sub). 

a a ca a a a a a i ee et ee eee ee eee eee a elena eS ei ns sepia Cee sen ai ns sn nesta npn cnn is ets etc ws ce em cc 


Figure 11. CLINT Macro Instruction Expansion - Field Information Record for a Scennepre 

















Field 
pe a a ee ee ye een ne gg Ie ge ee ye fa ge es ee Poop ten a foo eS Sas a eg ae ee. ee eee 
{| Bytes | Eits | Contents | Functicns { 
{ ----—_--——_ ------|----- Se ———= I 
{| 0 { | | Address of the right end of the field in BCD. | 
[ | I | | | 
{| 1 i 0 {Bet |Byte 0 represents an address. | 
i i 1-7 4|Bt'O0dQ00000! {Not used. | 
{ | I | [ 
{| 2-3 i }x'0000! {Not used. | 
cic Ss cis pres ssc eis ec as ks si Sec i se “eu cms es cw ens cums evn eis rs mpm sn cleus ai sin cae CS Ss um ness etn bee's as ni mi Simi Sims S Sens ems i i i jig biecacecssaiiell 


Figure 12. DLINT Macro Instruction Expansion - Field Information Record for a Field 
that is not to be Scanned 
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DFR Expansion 


Field 1 


DLINT 

' expansion 
(line- 
format-1 


Field 2 | 


Field n 


Field 1 


DLINT 
expansion 
(line 
format-n 


Field 2 
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Required by support, not 
part of format record 
(10 bytes) 


Document information 
record (9 bytes) 


Line information 
record (3 bytes) 
Field information 
record (4 bytes) 


Field information 
record (4 bytes) 


- Field information 


record (4 bytes) 


Sync byte (1 byte X’FF’) 
End of DLINT expansion 


Line information 
record (3 bytes) 


Field information 
record (4 bytes) 


Field information 
record (4 bytes) 


Field information 

record (4 bytes) 

Sync byte (1 byte X’FF’) 
end of DLINT expansion 
Sync byte (1 byte X’FF’) 
end of format record 


Figure 13. Format Reccrd Relationship to DFR and DLINT Expansions 


DIFDR Macro | services the 3886 Optical reader (see 
Figure 14). It requires a format record 
| built by the DFR and DLINT macros. 
The DIF table generated by the DTFDR macro 
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| 


dct 
| Bytes* |{ Bits | Contents | Function 

|- i ee a a a al ne oe =a <= SS 
| 0- 15 | | | CCB. 

| aa , | 

( 

| 16 | O-1 | | Not used. 

} (10) | 2 { {COBOL open; ignore option. 

i i 3 | {Not used. 

| | 4 [ {}OPENR relocates DTF table addresses. 
| { 5-7 | {Not used. 

i | | 

{ 17-19 | | j|Address of logic module. 

| (11-13) { | | 

i | | | 

{| 20 | {x*'oc? {| DTF type. 

i (14) [ | | 

{ { | l 

} 21 | | {| PIOCS switches: 

i (15) { 0 i 11 = open; O = closed. 

| { 1 jBti' jInput. 

| {| 2-5 |Btd0008 | Not used. 

| i 6 {Bf {Device is 3886. 

] | 7 {|B tor | Not used. 

( [ | | 

{ 22 | | {Not used. 

{ (16) | | | 

i l ; { 

{| 23 | | | LIOCS switches: 

|} (17) | O-4 |{B*tO00008 |Not used. 

| | 5 | {1 = SETDEV. 

{ | 6 | {}1 = Control passed to COREXIT. 
] 1 7 ; 11 = FR loaded from disk. 

i | { | 

) 24-31 | | {FR phasename at open time. 

| (18-1F) | | i 

[ | | | 

l 32-39 | | {Phasename of currently used FR. 
i ae : 

{| 40-43 | 1X¥*00000000* {Not used. 

| (28-28) | | | 

i [ | | 

1 44-47 | { |Start address of FR area in DTF. 
| (2C-2F) | ! 

[ { 

|} 48-51 | { | Address of 4-byte pointer at the end of the FR 
| (30-33) | { jarea in the DTF. 

{ | | | 

} 52-55 | | {EOF routine address. 

| (34-37) | | 

; { [ l 

{| 56-63 | I jScan CCW. 

| (38-3F) | | | 

| [ { i 

{ 64-71 { | {Read CCW. 

| (40-47) | | { 

{ [ ( | 

{| 72-79 | | {Control CCW. 

| (48-4F) | i | 

( { | ( 

| 80-87 | | {Load format record CCW. 

| (50-57) | | | 

Ho rs iste inc ris ct ce ce nin cn cl en nes Sn ees ‘nes nes ein ee es (nem ei io can Ss “cs coe ui sin Seneca nema ‘cin cas iy smn Spit avs ch cama ssc incipient i pi mn i i's css 
Figure 14. DTFDR (Part 1 of 2) 
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a a a at 
{| Bytes* | Eits | Contents ; Function — ; ' 
| —— 2 4 - HOO ——— SS ———-~———— | 
{| 88-91 | | | COREXIT routine address. | 
| (58-58) | | { | 
( i | | 
} 92-95 | | {IOAREA1 area address. t 
| (SC-5F) | { [ | 
( i | i | 
{| 96-99 | | {Header area address. | 
| (60-63) | | | 
i | i ; | 
{| 100-103] { |Fxit indicator address. i 
| (64-67) | [ | { 
l ( { i [ 
{| 104 { | {Start of DR area. | 
| (68) i | [ | | 
{ i [ | | 
| 105-107] | {Header area address. | 
| (69-68) | | | l 
{ ( | i | 
| 108-111] | jExit indicator address. | 
| (6C-EF) | | | | 
; | ; ; | 
{ 112 |. | {Start of FR area. | 
1 (70) | i | I 

as rb ens wn ms es is ini ems em chem in iis SS min cs << nr =i Sms nm is i um ci si Ln i-Station a aan acne 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 14. ODIFCR (Part 2 of 2) 


CRMOD Macro 


The module generated by the DRMOD macro 
provides the logic tc perform the READ, 
WAITF, CNTRL, and SETDEV functions for the 
3886 cptical reader. The DRMOD macro is 
capable of generating a number of logic 
modules, each tailored to the specific 
DRMOD parameters. Because it is not 
practical to describe each variation 
individually, the internals of the DR 
module are described and flowcharted to 
indicate all variations. 


ity 


RSOD 


feo 
In 


NIRL Macro, Chart CA 


Objectives To execute one of the following 


operations for the 3886 optical reader. 


Page mark current document when the 
document is ejected. 


e Line mark indicated line when the 
document is ejected. 


e Eject/stacker select the current 


document. 


Entry: From the CNTRL macro expansion. 


e Normal exit from the CNTRL routine is to 
the problem program. 


e To the user's end-of-file routine when 


an EOF condition occurs. 


e To the user's COREXIT routine when an 
error occurs. 


Methods The CNTRL routine sets up the field 
address and the length count in the CCW. 

If the CCW command is eject or stacker 
select, the routine builds a 1-byte field | 
to be passed to the 3886. The control CCW 
is then executed. When the I/O operation 
is completed, the routine checks for unit 
exception. If unit exception occurs, 
control is passed to the user's EOF 
routine. The routine then checks to see if 
any errors occurred. If an error occurred, 
it is posted to the user and control is | 
passed to the user's CORE¥IT routine. On 
return from the COREXIT routine, control is 
passed to the problem progran. 


DRMOD: READ Macro, Chart CA 
Objectives To access one line of data from 
the 3886 optical reader. 


Entry: From the READ macro expansion. 
Exits; To the problem progran. 


Method; The READ routine reads a line of | 
data from a document by first executing a 
scan CCW which scans one line of data and 
places that line in the 3886 buffer. A 
read CCW is then issued which reads the 
data into storage. : 
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Objective: To allow the user to change the 


format record in the 3886 control unit. 
Entry: From the SETDEV macro expansion. 


e Normal exit from the SETDEV routine is 
to the prcblemr progran. 


e To the user's end-of-file routine if an 
EOF conditior occurs. 


e To the userts COREXIT routine when an 
error OCCUrS. 


Method: The SETDEV routine checks to see if 


the format record to be loaded from the 
3886 control unit is in the format record 
area in the DIF. If so, the routine sets 
up the load format record CCW with the 
format record length and the format record 
address in storage. The routine then 
executes the CCW. If the format record is 
not in the format record area of the DTF, 
the routine loads the format record from 
the core image library. The routine then 
checks to see if the format record has the 
proper length. If so, the routine issues 
the load format record CCW to load the 
format record to the 3886 control unit. If 
any errcrs cccur while this CCW is 
executed, they are posted to the user and 
control is passed to the user's COREXIT 
routine. Upon return from the COREXIT 
routine, control is passed to the problem 
program. 


Objective: To wait for I/O completion, to 
check for end-of-file conditions, and to 
indicate to the user if any errors have 
occurred. 


Entry: From the WAITF macro expansion. 


e Normal exit from the WAITF routine is to 
the problem program. 


e To the user's end-of-file routine when 
an ECF condition cccurs. 


e To the user's COREXIT routine when an 
Error occurs. : 


the previous I/O oferation, the routine 
moves the header record (20 bytes) to the 
address specified in the header parameter 
of the DIF. The recognition data is then 
moved to the user's I/O area specified by 
the IOAREA1 parameter in the DIF. The 
routine then checks for unit exception. If 
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unit exception has occurred, control is 
passed to the user's EOF routine. The 
routine then checks if any error occurred 
during the previous I/O operation. If so, 
the error is posted to the user and control 
is passed to the user's COREXIT routine. 

On return from the COREXIT routine, control 
is returned to the problem progran. : 


Notes: If more than one file is specified in 
the operand field of the WAITF macro, this 
routine cancels the problem program by 
issuing an illegal supervisor call. 


Reader Files 


Optical reader files are opened by the 
logical transient $$BOOR0O1 that is fetched 
Functions Diagnosis Reference: LIOCS Volume 
1). These files are closed by the Close © 
Monitor, $$BCLOSE, which simply resets the 
open indicator in byte 21 of the DTF table. 


$$BOORO1 


Objective: To open an optical reader file. 


Jee 
Io 


pen Optical Reader, Chart CC 


Entry: From the Open Monitor ($$BOPEN1). 


Exit: To $$BOPEN or cancel. 

Method - 1287; If the optical reader file 
contains a header, this phase reads it into 
IOAREA1. If it does not contain a header, 
an 1/C NOP is performed. 


If a valid DTF type is found (indicating 
the presence or absence of the header), the 
routine returns to the Open Monitor 
($$BOPEN) to determine if any more files 
need to be opened. The routine aborts the 
job if an invalid DTF type is present. 


Method - 3886: This phase opens the file 
and loads the format record from disk into 
the DIF. If the format record is within 
the correct limits, it is loaded into the 
3886 control unit. If the format record is 
not of the correct length the open routine 
is canceled by issuing message 41861. If a 
device error occurs when loading the format 
record in the 3886, the command is retried. 
If the error persists, the open routine is 
canceled by issuing message 41861. 


PRINTER FILES 


Printer (PR) files are defined by a DTFPR 
macro for output files on 1403, 1443, 3203, 
3211, and 5203 printers, the 3525 card 
punch with print feature, the 2560 
Multifunction Card Machine, and the 


5424/5425 Multifunction Card Unit. In 

addition, the Selective Tape List (STL) 
feature for printing journal tapes on a 
1403 is also sufported. : 


Data handling logic for printer files is 
supplied by the associated PRMOD macro or 
the 3800 printer extended buffering module, 
IJDPR3. Data handling for the 3800 printer 
files can utilize extended buffering. 
Printer files are cpened and closed by the 
Open and Close Monitors, respectively, 
(refer to VSF/Advanced Functions Diagnosis 


Reference; LIOCS Volume 1). 


The DIFPR macro (see Figure 15) generates a 
DIF table containing all the necessary 
information tc describe an output printer 
file on any of the following devices: 


IBM 


STL 


IBM 


IBM 


IBM 


IBM 


IBM 


IBM 


IBM 


IBM 


IBM 


IBM 
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1403 Printer (with or without the 
feature) 

1443 Printer 

2560 MFCM 

3203 Printer 

3211 Printer 

3262 Printer 

3289-4 Printer 

3525 Card Punch with print feature 
3800 Printer 

5203 Printer 


5424/5425 Multifunction Card Unit. 
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LLP LIP) LEED PLP LLG ATA NEED LED LLL OT LEED TILL CEILI ELD LIT ELL EEE DIS IY CLI TLL EELS LELE LL INLD SLND CARES E SRETEAAEE DS 








a SS 
| Bytes* | Bits | Contents © | Function ee gt | | 
| --——-—--- +} ------ + - OO - [ 
| 0-15 | | {CCB. If 3800 extended buffering is selected, the | 
{| (00-OF) | {CCW address is changed by OPEN to point to a DIF 
jextension work area in the user virtaat area. 
[CLOSE restores Vie: . 





RS eS ALAR SLED RAR CBN PY DN AOE AOE 











= 2-line printer3,*; 0 = other. 

= ERROPT3,*; 0 = omitted. 

OBOL open; ignore option. 

= 3525; O = other. 

PENR relocates DTF address conerants: 
525 Modes: | 


1 
10) 1 
Cc 
1 
O 
3 
000 PRINT only 
0 
0 
1 
3 
1 
10 


(WA = © 


5 


11 PUNCH/PRINT3 

10 READ/PRINT3 

01 READ/PUNCH/PRINTS3 

800 Modes: (Bit 7 not used) 

1 = TRC=YES specified on DTF?. 

1= TRC=Y specified via SETPRT (set by OPEN)?. 


17-19 
(11-13) 


[Address of logic nodule. If 3800 extended 
| buffering is selected, OPEN changes this address 
{to point to extended buffering logic module 
| IJDPR3 in system virtual area. CLOSE restores 
jit. 
_ 

Xx*'O8! | DTF type. 

x'o7°8 {DTF type for 2560 and 5424/5425. 


20 
(14) 


21 
(1°) 


open; 0 = closed. 
st time switch. 
Control character. 
Fixed unblocked records. 
Variable unblocked records. 
Two I/O areas. 
Work area. 
Print overflow channel 9. 


i 


ti wu t wet 


| 

{1 
| F 
| 1 
{1 
}1 
{1 
1 
{1 


~J on Ol & WA) . © 
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{| For printer and card punch devices. 














| 

{ 
{ Z2 (16) | 1x'oge {Normal command codes. ] 
i { | | | | 
} 23 (17) | 1x*'098 {Control command codeS. | 
[ | { | | 
{| 24-27 | {DC A(IOAREA 1+x) jAddress of data in IOAREA1. { 
| (178-18) | ( i { 
| ( | | | 
| 28-31 | | | Bucket. ! | 
| (1C-1F) | | | | 
i i i ( | 
| 32-33 | {LR 12, (REC SIZE) |For undefined records only. { 
| (20-21) | {NOPR 0 | | 
[ I | | [ | 
{| 34-37 | {LA SIOREG,4 (14) {Only if IOREG=(r). 
| (22-25) | {NOP O { { 
i l { ; { 
{| 38-39 | | | Bucket. 2 | 
| (26-27) | | ; ( 
{ | { | | 
| 40-47 | 111,*,X'60',1 |CCW -- Set up Selective Tape List Controlé. { 
| (28-2F) | |9,ICAREA,X*'20',121 |STLIST not specified. | 
Ws mr shove wins ccs casas cles ss: a sci hina ils sh ei: pecs ed ce ee cb wari ths a im apie Sn ie sn ai ee be min: Sap Sis eee i ei Ses ans int me seo cun ei tae nis oes ll 








Figure 15. DIFFER (Part 1 of 3) 
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| Bytes* | Eits | Contents | Function | we | | 
SSS a a | 
{| For printer and card punch devices (Cont.) | | 
| mann a ae ee ee mmeenaen een am smear emncmamn | 
| 48-S5 | 19,I1OAREA,X¥'20*,121 |CCW -- STLIST specified®. 
{ (30-37) | | A (Name) jAddress of user error routine (for all the | 
i | {3211-compatible printers identified by device { 
{ | | _ [type code PRT1). ; 
{DC A (ASOCFLE) {If ASOCFLE=filename3. 
| -----------_---------—_-- Oo SS SS 
| For the 2£€C and 5424/5425 Multifunction Card Machine. | 
(SSS ee | 
{| 22 { }x*Ooo*8 |Not used. | 
| (16) | | | 
{ { | . l | | 
| 23 | |B*HHHHHHOO® | Print head selection byte. | 
1 (17) | j {H = 1 specifies the corresponding head. { 
l | [ | | | 
} 24-27 | | {Address of IOAREA1. | 
| (18-18) | | i 
| | | | | 
{| 28-31 | | jBucket. | 
| (1C-1F) | | | | 
| | i i | 
} 32-33 | {LR 12, (RECSIZE) |For undefined records only. ] 
| (20-21) | |NCPR 0 r 
j | | | | 
{ 34-37 | {LA SIOREG,4 (14) |Only if LOREG=(r) 
{| (22-25) | 1NOP O | 
I i | { 
|} 38-39 | | {Number of bytes to be printed by the last f 
{| (26-27) | | |specified print head. { 
| ; | : | a. | | 
} 40-43 | {DC A (ASOCFLE) {If FUNC=RW, PW, or RPW. | 
| (28-2B) | {Dc FOr _-|fIn all other cases. | 
( l | 1 | 
1 44 1 0 11 = 2560. | 
1 (2C) } 1 | {Not used. | 
| | 3 | {1 = print control switch for 2560 associated { 
| | | | files. . _ _ { 
| {| 4-7 | |Not used. | 
( { | | i 
| 45-47 | {Dc 3x'OO08 jReserved for future use. | 
| (2D-2F) | | i { 
4 ee ae ann amen anmemeenansimee | 
{ For 2560 simple files. . ; | | 
‘ei amin usu sins ch. i sss ines ice tn innit st in re mimes cin cm i Sin ev ei meni eu i en ei a nese ic ni i mc ca ei is nna et i im i i i Si ag an mia | 
{| 48-55 | | jEject CCW. | 
| (30-37) | | | ) 
{ [ i | 
{1 56-63 | | |Load print head buffer CCW. | 
| (38-3F) | | | | { 
ian i [ l { 
| 64-71 | | | Print CCW. 
| (40-47) | I | | 
eee See ne AO a a a eee a NAN ROE Rs eI ee ae ee OT NL RO ET aS OT OEE at 
| For 2560 associated files. i 
Bete pe ee ea he ee 7 Lene ee a ee ee eS 
{| 4e-£5& | | {load print head buffer CCW. | 
| (30-37) | | | | 
{| 56-63 | | . {Print CCW. ) | | 
| (38-3F) | | { ; - | : [ 
a a a a a iran a csc smc cme spe ma eS Sco ils la snes cs Nese aed acca eae a Od 


Figure 15. DIFPR (Part 2 of 3) 
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Se fer er ee Pg Eg ee eg a geen ee ae eee ee ee wee ea ES A See ee PA Oe ea g tae ET gr ep eae 
| Bytes | Bits | Contents. | Function 
{ For 5424/5425 files. | 
| a cts ere ————| 

We-55 | {Print CCW. 
| (30-37) | { | : | 


the mode set cf a printer with UCS. 


data checks. 


N 


to indicate spacing or skipping. 
X'02' skipping.) 

Valid for 3525 READ/PRINT, PUNCH/PRINT, 
Valid for 3525 PRINT only files. 

X'05' for 3525, X'0O9' for other devices. 
Valid for 1403 only. 

Valid for 3800 only. 


ees rt ene cee wince aiennine eee eter simn-anne aumn ems come ne wae A SoS CEA ER GED GID ERED ED NY AED aD EET) aE KD ecat> oD em 


(x'008 


ane W 


~\ 


1 The bucket bytes handle undefined records. 
If bit 0 is 1, 
checks occur if an invalid character is printed. 


| 

[ 

[ 

| 

{ 

| 

| 

| 

[ 
and READ/PUNCH/PRINT files. | 
[ 

| 

i 

| 
anaeal | 





Bit 0 of byte 28 at open time determines 
the mode is set so that data 
Otherwise, mode is set to suppress 


The use of the UCS parameter determines the setting of this bit. If 
STLIST=YES, byte 31 saves the STLIST control byte provided by the PUT macro. 

The 2 byte bucket saves print overflow conditions if CTLCHR=ASA. 
byte 38 contains the current STLIST control byte. 


If STLIST=YES, 
Byte 39 is set by the PUT macro 


no spacing, no skipping; X'01' spacing; 


REED GEG SEREDESEED GMIISCETNEND AAAI CRIA ED SPEER SRD EEE ED CREED MOA ASIN REECE COMET OED AED SED SAD ENR hy SAE OER) APMAPED G-PROTEIN IT CE CUD CHES UD 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 15. DIFFER (Part 3 of 3) 


PREOD Macro 


The module generated by the PRMOD macro 
provides the lcqic tc perform the CNTRL, 
PRTOV, and PUT functions for a printer 
file. The logic module handles only 
unblocked records, and supports fixed, 
undefined, and variable record formats. 


The FRMOL wacro can generate many logic 
modules, each designed to handle the 
conditions specified by the macro 
parameters. Because it is not possible to 
describe all the variations, the PRMOD is 
flowcharted to show the internal decisions 
made for the specified parameters. 


CNTRL Macro, Chart CD 


ez: To control the carriage space 


bijective: 
nd skip Operaticns or the 3211 character 


the pechlca program following the CNTRL 
Macre expansicn. 


TReenenaent “control of the printer 
carriage. It also controls UCSB character 
folding on the 2211. When FOLD is 
specified, bits 0 and 1 of the byte to be 
printed are assumed to be ones. The FOLD 
and UNFOLD parameters permanently override 
the previous fold condition. It is used 
when the PRMCD macro parameter CTLCHR is 
not specified. 


The ERMCD CNTRL routine waits for a 
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previcus I/O cperation to finish and then 
inserts the centrol character into the CCW 
command code.w. The required carriage 
operation is started and control returns to 
the problem program without waiting for 
completion of the carriage operation. 


y: From a PRTOV macro expansion. 


ie 
| 


Exits To the user's carriage overflow 
routine if the address of the routine is 
supplied, or to the problem program at the 
next sequential instruction following the 
PRTOV macro expansion. 


Methods The PRTOV (printer overflow) macro 
instruction is used with a logical printer 
file to specify the operation to be 

performed on a carriage overflow condition. 


PRTOV requires two parameters. The 
first parameter must be the name of the 
logical file specified in the DTF header 
entry. The second parameter must specify 
the number of the carriage tape channel (9 
or 12) used to indicate the overflow 
condition. When an overflow condition 
occurs, IOCS skips the printer carriage to 
channel 1. 


An optional third parameter causes a 
branch to a user routine instead of a skip 
to channel 1 on an overflow condition. 
This parameter specifies the symbolic name 
representing the address of the user's 
routine. In the user's routine, any 
desired function can be performed except 


another PRTOV. 


Objectives To print a line and space, or to 
print. a line and skip the appropriate tape, 
if the Selective Tape Lister feature is 
available. 


printed on the cutput device. 
determines if two I/O areas are used, 
work area is specified, if a table 
reference character (TRC) exists in the 
data, and if CTICHR controls the carriage. 
A test is made to determine if CNTRL is 
specified. If sc, the CTICHR cannot be 


The logic 
if a 


be specified). 


If the CTLCHE=ASA option is used, this 
routine translates the control character to 
EBCDIC. 


If the TRC=YFS cption is used, a TRC 
byte can be processed. 


If associated files are used, macro 
sequence checking is performed. Printing 
(PUT tc a print file) may be omitted. 


For 2560 and 5424/5425 associated files, 
the print module initiates the read and/or 
punch command of the associated read and/or 
punch file processed by a CDMOD. 


If the Selective Tape List feature is 
used (1403 only), selected tapes are 
controlled through the use of a 1-byte 
control field. This field is accessed by 
the optional operand, either STLSP=label, 
or STLSK=label, of the PUT macro. Figure 
16 shows the format of the field specified 
by label. 
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{Bit 1 OF 1f 2] 3] SE 5] 6] 7 | 
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{Tape Positions| 8] 7] 6] S| 4| 34 2] 1° | 
SS SS 








|Note: Tape 1is the leftmost tape on the| 
| Selective Tape Lister. | 
u <i smi rou Sais en cms nS Ss ie it I OND mc nr i Sa ibe en-us Subn sass atmo 
Figure 16. STL Control Field 


The control field is used as the data 
address in the control CCW in the DTF 
table. Double width tapes are controlled 
by using the two bits corresponding to the 
tape positions occupied. 


Note: The label CONCMD used in this logic 
is a one byte save area in the DTF table 
used to store the control character. 


EXTENDED BUFFER PROCESSING 


SAM logic causes one, two, and sometimes 
three EXCPs per print line on existing 
printers. This method cannot be used to 
drive the 3800 at rated speed because of 
the CPU instruction overhead and channel 
selection overhead. For the 3800, extended 
buffering writes multiple lines per EXCP 
using a command-chained channel program. 
Extended buffering logic provides seven 
functions for a 3800 printer file: CNTRL, 
PRTOV, PUT, buffer truncation, TRC/FCB 
update, OPEN, and CLOSE as depicted in 
Figure 17.2 A 3800 printer file defined by 
a DTFPR, DIFDI, or DTFCP is supported by 
extended buffering logic. 


IJDPR3: CNTRI Macro, Chart XA 


Objective: To control the form space and 


skip operations for a 3800 DTFPR printer 
file opened for extended kuffering mode. 


Entry: IJDPR3 + 0 from a CNTRL macro 
expansion. 


Exits: To the caller or cancel. 


IJDPR3 


+0 +4 +12 +20 


Truncation 


CNTRL PRTOV PUT 


Figure 17. 3€0C Extended Buffering 


Processing 


+24 +28 +32 


CLOSE 
Processing 


OPEN 
Initialization 


TRC/FCB 
_ Update 
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Method: This rcutine provides independent 
forms position control of the 3800 printer. 
It is used only for a DTFPR 3800 file. The 
FOLD and UNFCLD operations are not 
supported for the 3800 printer. 


The extended buffering CNTRL routine 
builds a control CCW in the 3800 extended 
buffer as part of a command-chained channel 
program. The control operation will not 
occur until either: (1) the extended 
buffer is subsequently found filled and the 
channel program therein is executed, or (2) 
the buffer undergoes truncation. processing. 


IJDPR3: PRICV Facro, Chart XB 

Objectives To cause and control an overflow 
skip for a 3800 printer file (DTFPR only) 
opened for exterded buffering mode. 


Entry: IJDPR3 + 4 from a PRTOV macro 
expansion. 


1. To the caller's overflow processing 
reutine if the address of the routine 
is provided. 


La To the caller or cancel. 


overflow condition that may have been 
detected during the inmediately preceding 
PUT (or CNTRL) processing. The overflow 
condition is indicated in the DTFPR for 
which the PRTOV macro was issued. 


Because exterded buffer processing 
builds a command-chained channel program 
during PUT cr CNIRL processing, an overflow 
condition must ke initially detected at 
that tire by predetermining whether a 
channel 9 or 12 would be encountered by a 
particular FUT or CNTRL. (Refer to the FCB 
tracking descrirticn given in the method 
section under IJDPR3: PUT macro.) | 


When the PRTOV routine finds an overflow 
condition, a skip-to-channel 1 CCW is added 
to the exterded buffer channel program. 
However, if the address of a user routine 
has been provided, a kranch is made to that 
routine where any desired function except 
another PRTCV can ke performed. 


Objective; To provide output processing for 
3800 printer files that are opened for 
extended bufferirg mcde. To provide table 
reference character (TRC) mode for DTFPR, 
DIFDI, and DIFCE 3800 printer files. 
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Entry: IJDPR3 + 12 from a PUT macro 
expansion. 


It 


xits: To the caller or cancel. 


Method: This routine is entered when a PUT 
macro is issued on a DTFPR, DTFDI, or DTFCP 
(type 31 or 32), that has been opened in 
extended buffering mode for a file assigned 
to a 3800 printer. Note that only a DTFPR 
can have a record format cther than fixed 


unblocked. 


Other existing support found in the PUT 
routine of the access method (SAM) logic 
modules exists in the PUT routine of 
IJDPR3; for example, control character 
Support, multiple I/O area support and work 
area support. 


The DTFB (extended buffer) gotten by 
OPEN is utilized to build a chain of CCWs 
to minimize the number of EXCPs to be 
issued. The DTFB contains two channel 
programs and data areas, so that a channel 
program built in one area can be executing 
while another channel program is being 
built in the other area by subsequent PUTs, 
CNTRL, or PRTOV macros. The channel 
program in each area consists of (1) CCWs 
built from the front-end and (2) related 
data blocks built from the back-end of the 
area. When the space between the CCWs and 
the data blocks has diminished so that 
another CCW-data block combination cannot 
fit into the area, an EXCP is issued on the 
channel program just built. The other 
channel program previously EXxCPed is 
completed before being utilized to build 
another channel program. A separate CCB 
exists at the beginning of each of the two 
channel program areas. 


When extended buffer processing is to 
occur with TRC mode, the appropriate 
select-translate-table CCWs will ke built. 
When more than one DTF is concurrently 
opened to the same 3800 printer, extended 
buffering for that 3800 will still occur, 
even when PUTS on the different DTFs are 
intermixed. The lines of output will 
appear in the same order as the PUTs that 
were issued on the different DTFs. To 
accomplish this, the extended buffering 
channel control program in the common 
buffer, DTFB, will be built to include CCWs 
and data from PUTS issued on any of the 
DTFs concurrently opened to the same 3800 
printer. 


Tracking logic exists to follow the 
movement of line position down a form in 
Support of printer overflow processing for 
the DTFPR file type. 


Because extended buffer processing for a 
3800 printer causes a series of 
command-chained CCWs to be built in the 
DTFB, it is necessary to predetermine 


whether a channel 9 cr 12 printer overflow 
conditicn would be caused by each 
movement-causing operaticn code encountered 
when building each CCW. ‘This is 
accomplished by matching line movement down 
a form with corresponding movement through 
the current FCB image, a copy of which 
exists in the DTFR. 


Tracking occurs for all DTF types 
supported for extended buffer processing, 
even though frirter overflow support exists 
only for the DTFFR file type. This must be 
done to handle multiple DTFs concurrently 
open and processing output to the same 
3800. Even if cnly one of those DTFs is a 
DTFPR (for which printer overflow support 
is requested), any potential form movement 
caused for any DIF type must be tracked in 
order to mairtain printer overflow Srp nose 
for the DTFFR. 


FCB tracking is not necessary if: 
channel 9 or 12 does not exist in the 
current FCB image, or (2) the current CCW 
operation code does not cause form 
movement. 


(1) a 


3s To cause data currently in the 
nded buffer to be printed. 


and ee the CLCSE function within IJDPR3 
itself. 


Exits: To the caller. 


Method: The previously scheduled extended 
buffer's channel program is waited upon for 
completion. The current extended buffer's 
channel program (if any) is scheduled for 
I/O processing by an EXCP. Processing is 
completed befcre ccntrol is returned to the 
user. 


Objective: To update TRC and FCB data 


maintained in the extended buffer. 


Entry: IJDPR3 + 24 from SETPRT and also the 
OPEN function within IJDPR3 itself. 


Exit: To the caller. 


Method: The current TRC value maintained in 
the extended buffer is reset to zero (a 
non-TRC value). A new FCB image address 
may be passed tc the routine as input, 
requiring initialization of that image in 
the extended kuffer. The extended buffer 
is reformatted to accommodate the new FCB 


image. 
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OPEN Processing, Chart XF 


To perform OPEN initialization 
for 3800 extended buffer processing (runs 
in key zero). 


Entry: IJDPR3 + 28 from OPEN B-transient 
phase $$BOPR3. 


Exits To $$BOPR3 at the next sequential 


instruction following the call to IJDPR3. 


Method: Each 3800 that has extended 
buffering logic in effect requires a 4K 
GETVIS area in the partition for CCWs and 
data. Each DTF that is opened requires a 
128-byte GETVIS area in the partition for a 
work area. An OPEN of a 3800 DTF when no 
other DTF is opened to the same 3800 device 
will obtain the 4K virtual storage area and 
the 128-byte virtual storage area from the 
user GETVIS area. Any subsequent CPEN of a 
3800 DTF when at least one other DTF is 
opened to the same 3800 device will obtain 
only the 128-byte virtual storage area from 
the user GETVIS area. 


The 4K area, called the 3800 DTF 
Extension Buffer (DTFB), is used by the new 
extended buffering logic module as a buffer 
for print lines for the user, thus 
minimizing the number of EXCPs issued to 
the 3800 printer. OPEN initializes the 
DTFB for the subsequent building of channel 
programs. A small portion of the DTFB is 
initialized with a copy of the current FCB 
image if necessary. 


The 128-byte area, called the 3800 DTF 
Extension Work Area (DTFXWA), is used to 
save addresses, registers, DTF fields 
modified for extended buffer processing, 
and other values unique to each DTF. OPEN 
initializes the first word of the 3800 
DIFXWA to point to the DIFB. Additionally, 
OPEN changes the DTF CCW address at bytes 
9-11 (decimal) to point to the DTFXWA, and 
changes the DTF logic module address 
constant at bytes 17-19 to point to IJDPR3, 
the extended buffering logic module in the 
system virtual area (SVA). The original 
CCW and logic module addresses are saved in 
the DTFXWA. 


OPEN also chains together the DTFXWAs 
related to each DTF opened within the 
partition to a 3800 pointer. The chain 
base is in the partition-related GETVIS 
area and is called the Anchor Table 
Extension (ATX).The ATX exists for each 
partition only as is necessary. Each 
subsequent chain pointer is placed in the 
related DIFXYWA. While all DTIFXWAs related 
to DIFs opened within the partition to a 
3800 pointer will be on this single chain, 
only the DTFXWAs of those DTFs opened to 
the same 3800 printer will point to the 
Same DTFB. This is done so that if 
multiple DTFs are opened to the same 3800, 
the lines will be intermixed in the order 
of issuance of PUT. 
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Objective: To perform CLOSE processing for 


3800 printer files opened for extended 
buffering mode (runs in key zero). 


Entry: IJDPR3 + 32 from CLOSE B-transient 


phase $$BCLCS2. 


Exits: To $$BCILCS2 at the next sequential | 
instruction follcwing the call to IJDPR3. 


Method: CLOSE will (1) print the partial 


performance ktuffer when necessary, by 


calling the buffer truncation function in 


IJDFR3;3; (2) reestablish the original DTF 
CCW and logic mcdule addresses that were 


saved in the DIFXWA; (3) remove the DTIFXWA 


from the ATX chain and issue FREEVIS for 


the 3800 DTFXWA cbtained during OPEN; and 


(4) issue FREEVIS for the 3800 DTFB, if 


necessary. Item (1) is necessary only if a 
partially built channel program exists in 


the DTFRB. Item (4) is necessary only if 


the DTFXWA related to the DTF being closed 


is the cnly cne on the DIFXYWA chain that 
points to the subject DTFR. 


PAPER TAPE FILES 


Paper tape (PTI) files are input or output 
files associated with 2671/1017 paper tape 


readers or 1018 paper tape punches and 


defined by a DIFPT macro. A corresponding 


PITMOD macro supplies the data handling 
logic mcdule which supports only fixed 
unblocked and undefined records. 


Paper tape files are opened and closed 


by the Open and Close Monitors, 
respectively (refer to VSE/Advanced 


Functions Diagncsis Reference: LIOCS Volume 


4). 
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DIFPT Macro 


The DTIFPT macro is capable of generating 
several different DTF tables depending on 
the parameters specified in the macro 
operand. The ten basic table types ares 


e DTFPT: No Translation, Shifts or 
Deletes, Device=2671 (see Figure 18) 


e DTFPT: Translation, No Shifts or. 
Deletes, Device=2671 (see Figure 19) 


e DITFPT: Translation, Shifts, and Deletes 


with Fixed Unblocked Records, 
Device=2671 (see Figure 20) 


e DTFPT: Translation, Shifts and Deletes 
with Undefined Records, Device=2671 (see 


Figure 21) 


e DIFPT: No Translation, Shifts or 
Deletes, Device=1017 (see Figure 22) 


e DTFPT: Translation, No Shifts or 
Deletes, Device=1017 (see Figure 23) 


e DTFPT: Translation, Shifts and Deletes, 


Fixed Unblocked Records, Device=1017 
(see Figure 24) 


e DTFPT: Translation, Shifts and Deletes, 


Undefined Records, Device=1017 (see 
Figure 25) 


e DTFPT: No Shifts, Device=1018 (see 
Figure 26) 


e DTFPT: Shifts, Device=1018 (see Figure 


27) 


Translation refers to code translation of 
paper tapes punched in other than EBCDIC 
code. Shifts refers to letter or figure 
shift required for 5-channel paper tape. 


characters punched in the tape. 


be | 





Bytes* | Contents 
a + = 

O-15 | 

(00-OF) | 


i 
16 (10) }x*208 
1x08" 
| 
17-19 [7 
(11-13) | 


| 
20 (14) |x*01! 


21 
(15) 


22-25 |MVI 26(1),X'07! 
(16-19) {NOP 0(0) 


| 
26-27 |SVC 0 
(1A-1E) | , 
| 
28-29 |Svc 0 


(1C-1L) | NCER 0 


. | . 
30-21 |LR &RECSIZE,14 
(1E-1F) | NCER 0 


{ 
32-35 |{A(SICAREA2) 
(20-23) JA (GIOAREA1) 


| | 
{| A(&ECFADER) 


36-39 

(24-27) | 

40-43 |A (&ERROPT) 

(28-2B) {SR 0,0 
{SVC 6 
{B 12(15) 
{B 138(15) 


{ | 
{A (GWLRERR) 


44-47 

(2C-2F) |B 12(15) 
(B 162 (15) 
| 
1B 152(15) 


| 
48-55 |xX'O2',&ICAREA1,¥'00',&BLKSIZE 
(30-37) | X'06',&ITOAREA1,¥'00', &BLKSIZE 


| 
56-63 | 
(38-36) | 


| 
64-67 |F'O! 
(40-43) | 


| 
68-71 |L SIOREG,48 (1) 
(44-47) [NOP 0 (0) 


ee ee oe ee 
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| Function 








{CCB (X°88" in byte 2). 
i 


{COBOL open; ignore option. 

|OPENR relocates DIF address constants. 
| 

{Address of logic module. 

[ 

| 

JDTF type. 
| 

{Bit 0 OPEN indicator. 
1 Two I/O areas. 
2 EOF indicator. 
3 Read error. 

7 


Undefined record. 


{NOP first SVC 0 if two areas. 
{If one area. 

| : 
{Read a record. 
| 


| 
|Read another record if two areas. 
{If one area. 


|Put record length in user's register. 
{No RECSIZE entry. 

| 

{if two areas. 

{If one area. 


{End-of-file address. 
| 


j}Addr. of user's error routine if ERROPT=name. 
J|ERROPT omitted. 


[ 

{| ERROPT=SKIP. 

| ERROPT=IG NORE. 

{Address of user's WLR routine if WLRERR=name. 
|WLRERR omitted and ERROPT=SKIE. . 

|WLRERR and ERROPT both omitted, or 
|WLRERR omitted and ERROPT=IGNORE. 
{RECFORM=FIXUNB or omitted. 

| 
ICCW: 
{|CCWs 


if RECFORM=FIXUNB or omitted. 
if RECFORM=UNDEF. 


l 
| Duplicate CCW. 


{ 

| 

{Save area for register 14. 

| | — 
| oe 

{Put input area address into user's register 
{No TOREG entry. 


| 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 18. DIFPI: No Translations, no Shifts or Deletes; Device=2671 
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Figure 19. 
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eD SNS ED CREE OIG EES OED CENTS CGH RISES ED CRC CRN EE ATED EDD OD 


Contents. 





Bytes* | 


0-15 | 
(00-OF) | 


| 
16 j}x'20' 
(10) |x'oe? 


| 
17-19 | 
(11-13) | 
j 
20 x'01! 
(14) 


21 
(15) 


22-25 
(16-19) 


MVI 26(1),X'07! 
NCE 0 (0) 


26-27 
(1A-1E) 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[svc 0 
| 


[ 
28-29 SVC 0 
(1C-1D) |NCER 0 


| | 
30-31 {LR &RECSIZE, 14 
(1E-1F) | NOPR 0 


; 
32-35 |A(SICAFEA2) 
(20-23) {A (GIOAREA1) 


| 
| A (GEOFADDR) 


36-39 
(24-27) | 
i 
40-43 4A (SERROPT) 


(28-22) |SE 0,0 
ISVC 6 
1B 12(15) 
1B 138(15) 


| 
44-47 {A (GWLRERR) 
(2C-2F) {B 12(15) 


| 
|B 182(15) 


i 
1X 'O2', ETOAREA1,X'00' ,&EBLKSIZE 


48-55 

(30-37) |X"'06',&ICAREA1,¥'00',&BLKSIZE 
| 

6-63 | 

(38-3E) | 
| 

64-67 |A(&TRANS) 

(40-43) | 
| 

68-71 |L &IOFEG,32(1) 


(44-47) [NOP 0 (0) 
72-75 |LH &RECSIZE,30(1) 
(48-4B) {NOP 0 (0) 


DTFET: Translation, 


LICCS Volume 2, SAM 


no Shifts or Deletes; 





| Function 
{CCB (X'88* in byte 2). 
{ 


| 
{COBOL open; ignore option. | 
|OPENR relocates DTF address constants. 








OEP EY CATES GE ERED elon GERD ERD OE 


I 
jAddress of logic module. 
I 


DIF type. 
OPEN indicator. 


0 

1 Two I/O areas. 
2 EOF indicator. 
3 
7 


wo 
wes 
ct 


Read error. 
6 Not used. 
Undefined record. 


{NOP first SVC 0 if two areas. 
{If one area. 

| 

{Read a record. 

I 

l 


}Read another record if two areas. 

{If one area. 

| 

j}Put record length in user's register. 
{No RECSIZE entry. : 
| 

{If two areas. 

}If one area. 


l 
{End-of-file address. 


[ 
jAddr. of user's error routine if ERROPT=name. 


|ERROPT omitted. 


{ 

| ERROPT=SKIP. 

| ERROP T=IG NORE. 

| 

J}Addr. of user's WLR routine if WLRERR=name. 
{WLRERR omitted and ERROPT=SKIP or IGNORE; or 
|WLRERR and ERROPT both omitted. 

| RECFORM=FIXUNB or omitted. 


{ | 
{CCW: if RECFORM=FIXUNB or omitted. 
| if RECFORM=UNDEF. 


Duplicate CCW. 


Address of user's translate table. 


{Put input area address into user's register. 


{No RECSIZE entry. 
| : f 
|Put record length into user's register. 
{No IOREG entry. 





Device=2671 


ONY EEE ED AE LD ED ID OED CES ees GT-R A CE aD IE 


1 


onal 
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| 
40-43 4A (0) 
(28-28) | 


| 
44-47 |NOP 0 (0) 
(2C-2F) | 


( 
48-55 1{X'O02',EIOAREA1,%'00',&0VBLKSZ 
(30-37) [X'02*,ETOAREA1,X'00',&BLKSIZE 


Cottiectes an eines TEED OLED AD SA AD ID ED ENED ED EP OS OAD TT ESD ST “ALD SAP AT AD ID ONES CED SARA MAD ACRE ERP ETE 


CCW: if CVBLKSZ specified. 
if CVBLKSZ not specified. 


| 
| 
i 
| 
i 
i 
( 
. | 
36-39 |{A(&EOFADDR) {End-of-file routine address. 
{ 
| 
{ 
| 
| 
| 
| 
| 
| 
| 








| Bytes* | Contents | Function | | 
|----—---— eee SS eee 
|} O-1& | {CCB (xX'80' in byte 2). | 
{| (00-OF) { { : 
{ ( i 
| 16 ;x'20° {|COBOL open; ignore option DTF table address | 
1 (10) 1x'O8' jconstants relocated by OPENR. | 
{ | | | 
{| 17-19 | JAddress of logic module. | 
| (11-13) | [ { 
| | | | 
| 20 {x*'o18 {DTF type. | 
( (14) i I i 
{ { | | 
{ 21 | {Bit 0 OPEN indicator. | 
1 (15) | | 1 Two I/O areas. | 
; | | 2 EOF indicator. | 
( | | 3-5 Not used. | 
| | | 6 Scanning. | 
i | | 7 Not used. | 
| | | | 
| 22-25 |MVI 26(1),X*'07! {NOP first SVC 0 if two areas. ! 
{ (16-19) {NOP O (0) {If one area. ] 
{ ( | | 
| 26-27 |SvVc 0 |Read a record. | 
{| (1A- 18) | : 
| 
{ 28-29 |sSvVC 0 jRead another record if two areas. { 
| (1C-1D) {NOPR O {If one area. | 
{ | | { | 
{ 30-31 |H*tOF Record length field. { 
| (1E-1F) | | 
It { i 
| 32 jc*o2? | 
| (20) | | 
; | | 
{| 33-35 |AL3(SICAREA2) If two areas. | 
{ (21-23) {|AL3 (GICAREA1) If one area. | 
| l 
i : | 
| (24-27) | | 
i | 
{ i 
| | 
i | 
| | 
| | 
| | 
| | 
| | 
oe | 








Figure 20. DIFPI: Translation, Shifts and Deletes, with Fixed Unblocked Records; 
Tevice=2671 (Part 1 of 2) 
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ee rn ee ne eT ED TEED SORE ERED CEH ORD ED END ED ED AE Ee CS ENE Oy CREO ES GS ee AEP etichene ore 











| Bytes* |. Contents | Function | 
| an nnn nnn nnn nn nnn nnn nnn ot 2 a ecm mn —— | 
{| 56-59 |L &IOREG, 96(1) |Put input area address into user's register. | 
| (38-32) |NGE 0 (0) | No ITOREG entry. | 
{ | 3 | i 
| 60-63 {LH SRECSIZE,30(1) — rig record length into user's register. | 
{ (3C-3F) | NOE 0 (0) {No RECSIZE entry. | 
{ { { | | 
; 64 1x'O2" | ] 
| (40) { { i 
{ | | | 
} 65-67 Porc {Address of current input area. f 
{ (41-43) | | | 
[ , [ | | 
{| 68-71 {A (0) jAddress of remainder in input area. i 
| (44-47) | | | 
i | | [ 
{| 72-75 |FO8 JLength of remainder. | 
a : 
{| 76-79 |A(&FTRANS) }Address of figure shift table. ] 
(4C-4F) : | | 
| 80-83 {A(&LTFANS) erere of letter shift table. | 
, (50-53) | | . 
| | 
| 84-87 |A(&TRANS) {If LTRANS and FTRANS not specified. | 
| (54-57) [A (GFTRANS) {Address of current translate table. | 
] : {A (0) {If no translation is specified. | 
88-91 eee pinmesee of scan table. | 
| (S&-SE) | | | 
; { { [ 
| 92-95 |F'&EBLKSIZE! |Required record length. ] 
ee | | 
{| 96-102 | | Duplicate CCW. ( 
a | | 
1104-109 | TR 0(0,4) ,0(5) JIf TRANS, LTRANS or FTRANS specified. | 
| (68-6D) {TM 0,0 {If no translation specified. { 
{NOPR 0 | 
Mac seas cesses crt sin Sis sss Sim tees vid ess ce core’ nin nn cvs mice ec sey sco cos cinco ce sai cuca “ein ie cosmonaut oceans i-inr om a ee ae aanaseal 











*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 20. DIFPI: Translation, Shifts and Deletes, with Fixed Unblocked Records; 
LTevice=2671 (Part 2 of 2) 
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|. Bytes* | Contents | | Function 
ef a a as cs a a an lS ct eee ee See cnn sa ae eae epee meena ames mms Seem tte en euRaeneN Sate cena wD ween eam naen annann ene eam suman eneemmenmunn csiem 
0-15 | {CCB (X¥*'88" in byte 2). 
(00-OF) | | 
l | 
16 ;x*'20° {COBOL open; ignore option. 
(10) jx'oet |DTF table address constants relocated 
| {by OPENR. 
{ 
17-19 }Address of logic module. 
(11-13) | 
ae X'O1' DIF type. 
21 Bit OPEN indicator. 


(15) 


22-25 |MVI 26(1),X'07! 
(16-19) |NOP 0(0) 


i 
26-27 |SvC 0 
(1A- 1B) | 


i 
28-29 4SVvC 0 
(1C-1D) |NOPR 0 


l 
30-31 |{H*O! 
(1E-1F) | 


| 
32-35 |A(SIOAREA2) 
(20-23) | A (GICAREA1) 


| 
36-39 |A(&EOFADDR) 
(24-27) | 


| 
40-43 |A(&SERRCPT) 
(28-2B) |SR 0,0 


0 
1 Two I/O areas. 
2 EOF indicator. 
3-5 Not used. 
Scanning. 


| 

| 

| 

| 

| 

| 

| 

| 

| 6 

| 7 Read error. 
| 

{NOP first SVC 0 if two areas. 
}If one area. 

| 

Read a record. 

| 

| 

{Read another record if two areas. 
{If one area. 

{ 

{Record length field. 

| 

[ 


{If two areas. 
{If one area. 


l 
| End-of-file routine address. 


j|Address of user's routine if ERROPT=name. 


JERROPT omitted. 


{SVC 6 | 
1B 16(15) | ERROPT=SKIP. 
[B 246 (15) | ERROPT=IGNORE. 


44-47 {A (&WLREER) 
(2C-2F) |B 16(15) 

|B 260(15) 

l 


{Address of user's WLR routine if WLRERR=name. 


| WLRERR omitted and ERROPT=SKIP. 
|WLRERR omitted and ERROPT=IGNCRE, 
jomitted. 


Figure 21. CIFET: Translation, Shifts and Deletes, with Undefined Records; Device=2671 
(Part 1 of 2) | 
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CS AED ERD AD 


Bytes* | 








EL ESEL CIRO PERENOLDE AR OTR OD) TES 


Contents 


48-51 {L SICFEG,32(1) 
(30-33) {NOP 0 (0) 


i 
52-55 |LH &RECSIZE, 30 (1) 
(34-37) [NOP 0(0) 


{ 
56-59 |A(SFTRANS) 
(38-38) | 


i 
60-63 |A(LTIRANS) 
(3C- 3F) | 


[ 
64-67 |A(&FTRANS) 
(40-43) | A(&TRANS) 
{A (0) 


{ 
68-71 |A(&SCAN) 
(44-47) | 

| 
72-79 | 
(48-4) | 


80-87 
(50-57) | 


| 
88-93 {TR 0(0,4) ,0(5) 
(58-5D) | TM 0,0 

|NCER 0 


i 
}X'O6" ,SIOAREA1,¥'00',&BLKSIZE 


PRED RTND CD ED CEES CED TOAD ALD I SEPT 


LD LAID AND AAT AMI LLLS ELE TEEND ADM ATTEND OLD PATIO ALI EES ALERTED RNS ELD SIDI CELE CES LEAR EEA CR AION EAE 


| Function 








{Put input area address into user's register. 
|No IOREG entry. 


[ 
{Put record length into user's register. 
|No IOREG entry. 


| 
{Address of figure shift table. 
{ 


Address of letter shift table. 


{Address of current translate table. 
{If LTRANS and FTRANS not specified. 
{If no translation specified. 


{Address of scan table. 


Duplicate CCW. 


| 
| 
| 
| 
| CCW. 

{If TRANS, LTRANS or FTRANS specified. 


{If no translation specified. 
| 





*Numbers in parentheses are displacements in hexadecimal nctation. 


Figure 21. 


DIFETs 
(Part 2 of 2) 
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Translation, Shifts and Deletes, with Undefined Records; 





Device=2671 


cc ED OTE ATED NE EES EEE COTES CED eter CRY TED AOE GAS AED DED CD EP TD CD ES a EU 


28-29 





Bytes* | Contents 


0-15 | 
(O0-OF) | 


16 1x'os' 
(10) 


17-19 
(11-13) 


20 
(14) 


21 
(15) 


22-25 |MVI 26(1),X*07! 
(16-19) | NCE 0 (0) 


| 
26-27 Svc 0 
(1A-1B) | 


| 
{SVC 0 
(1C-1D) | NOPR 0 


| 
30-31 |LR &RECSIZE, 14 
(1E-1F) |NOPR 0 


| 
32-35 |A (SIOAREA2) 
(20-23) |A:(§IOAREA1) 


{ 
36-39 |A(&EOFADDR) 
(24-27) |SVC 50 

|H*O! 

| 
40-43 |A(&ERECPT) 
(28-2B) | SR 0,0 

Isvc 6 

[B 0(14) 

1B 4(14) 


| 
{A (GWLRERR) 


44-47 
(2C-2F) | A (GERROPT) 
1B 0(14) 
1B 8(14) 
l 
1B &(14) 


( 
48-55 |X'02',SIOAREA1,X'00",&BLKSIZE 
(30-37) {X'06",&IOAREA1,X*00",&BLKSIZE 
| 


56-63 | 
(38-3F) | 
| 
64-67 |F!0! 
(40-43) | 
i . 
68-71 |{L SICKEG, 48 (1) 
(44-47) [NOP 0 (0) 
cs et ca ai cl dl em Ss eae 
Figure 22. DIFET: 


EONAR TES cae AE OSD GAD ORD EID OED EAD ET ETD CURD ORNS SED CRSREND OOD CAG GED GN GaN AEE CAMS <EED IG-OEEE EP 


{I£ one area. 


{If one area. 


-{WLRERR absent and ERROPT=name. 
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| Function 


ICCB (x*88! 
| 


in byte 2). 
Indicates DTF table relocated by OPENR. 


Address of logic module. 


Oo 
as 
rr 
ce 
ne 
se) 
o 
6 


0 CPEN indicator. 
1 Two I/O areas. 

2 FOF indicator. 
3 
7 


ee) 
}- 
ctr 


Read error. 
6 Not used. 
Undefined record. 


NOP first SVC 0 if two areas. 
If one area. 


Read a record. 


{Read another record if two areas. 


| 
{Put record length into 


|No RECSIZE entry. 
| | 


{If two areas. 


user's register. 


{End-of-file address. 
{No EOFADDR operand. 
[ 


l 
{|Addr. of user's error routine if ERROPT=name. 
{ERROPT omitted. 


| 
| ERROPT=SKIP 
| ERROP T=IGNORE 


l 
{Address of user's WLR routine if WLRERR=name. 


{|WLRERR absent and ERROPT=SKIP. 


(WLRERR and ERROPT both absent or WLRERR absent 


jand ERROPT=IGNORE. 

| RECFORM=FIXUNB or absent. 
( 
|CCWs 
{|CCWs 
| 
{Duplicate CCW. 
| 


if RECFORM=FIXUNB or absent. 
if RECFORM=UNDEF. 


Save area for register 14. 


(Put input area address into user's register. 
{No IOREG entry. 





No Translation, no Shifts or Deletes; Device=1017 


Unit Record Files 


RED SENGEEED en) =D GED auTeD cats okt aR aoe oe ED Se ne 


~--------------—------------- + -- | 


am EE 288 eee 22 ewe eam «see eae 68 ae ewe 2 eww ame 6 eee Oe ee eee ae «em supe @8 eee es ee ee ee eee eee OOP ee ae OE eee Ge eee ee ee ee CE eee ae eee ewe our eee ew aw oer ase oes eu auee «am om ae ew ase 
‘ oe 


L 
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Li 
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| 
i 
| 
i 
| 
{ 
l 
| 
( 
| 
[ 
{ 
| 
l 
| 
i 
| 
l 
| 
[ 
l 
| 
| 
! 
I 
i 
[ 
| 
| 
i 
[ 
( 
[ 
l 
{ 
| 
| 
| 
i 
( 
| 
[ 
[ 
i 
| 
l 
i 
I 
[ 
| 
i 
( 
| 
| 
I 
[ 
| 
| 
| 


Fi 
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Bytes* | Contents 

ce ne er fe ce ce cc ee 
0-15 | 

(00-OF) | 

16 {x*'os' 

(10) 

17-19 | 

(11-13) | 

20 1x'O1° 

(14) 
21 
(15) 





| 
| 
{ 
| 
| 


| 
22-25 (MVI 26(1),X"07" 
(16-19) |NOP 0 (0) 


| 
26-27 |SvVCc 0 
(1A-1E) | 


{ 
28-29 |svc 0 
(1C-1L) | NCER 0 


30-31 |H*O! 


{18- 1F) | 
32 1x*00! 
(20) 
33-35 |AL3(&IOAREA1) 
(21-23) | 
i 
36-39 |A (SEOFADDR) 
(24- i 50 
;H*O? 


| 
40-43 |A(&ERROPT) 
(28-2B) | SR 0,0 
isvc 6 
1B 0(14) 
1B 4(14) 


{ 
44-47 | A (EWLRERR) 


(2C-2F) | A (GERROPT) 
1B 0(14) 
1B 8 (14) 


| 
{B 8(14) 


| 

48-55 |X'02',GICAREA1,X'00",&BLKSIZE 

(30-37) {X"06",&ICARFA1,¥'00',&BLKSIZE 
H 

56-63 | 

(38-3E) | 

64-67 |A(&TRANS) 

(40-43) | 


I 
68-71 |L SICFEG,32(1) 
(44-47) {NCE 0 (0) 


| 
72-75 {LH &RECSIZE, 30 (1) 
| (48- 4B) {NOP 0 (0) 


] Function 


|CCR (X*88" in byte 2). 
| | 
jIndicates DTF table relocated by OPENR. 


JAddress of logic module. 
| 
}DTF type. 


[ 
Bit 0 OPEN indicator. 


1 Two I/O areas. 
2 EOF indicator. 
3 Read error. 
4-6 Not used. 
7 Undefined record. 


NOP first SVC 0 if two areas. 
If one area. 


l 
( 
{ 
| 
( 
| 
| 
[ 
| 
( 
{Read a record. 

i 

{ 

j|Read another record if two areas. 
{If one area. 

( 

|Record length field. 

[ 

l 

| e 

jOne input area. 


jEnd-of-file address. 
|No EOFADDR operand. 
| 

| | e 

jAddr. of user's error routine if ERROPT=name. 
{|ERROPT omitted. 


| 

{|ERROPT=SKIP. 

| ERROPT=IGNORE. 

| 

[Address of user's WLR routine if WLRERR=name. 
|WLRERR absent and ERROPT=name. 

J|WLRERR absent and ERROPT=SKIP. 

{WLRERR and ERROPT both absent or WLRERR absent 
jand ERROPT=IGNORE. 

{RECFORM=FIXUNB or absent. 

l | 

|}CCW: if RECFORM=FIXUNB or absent. 

{ICCW: if RECFORM=UNDEF. 

| 

[Duplicate CCW. 


{Address of user's translate table. 
|. 

| ° e | s 

}Put input area address into user's register. 
[No IOREG operand. 

| 

{Put record length into user's register. 

{No RECSIZE operand. 


gure 23. CUIFFI: Translation, no Shifts or Deletes; Device=1017 
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Ce OD RD RD CED EEE SON RCTS RED GO OSPR ED SREY GOERS CE SRE RAS ED OT ES ED COREE CARED OER SAID AS STD AED ASAD A CED AY NDAD ES 


Figure 24, 


ERD SIT ID CI OTT CAND CPCI EE RNY UU CORNY TED CT-N ED SS CEES AED OED IT CED SAE ES DED A AA-SREY GES) AND CEO CED CER OOS? SPE SD eS Pana 


Bytes* | Contents 


0-15 | 
(00-08) | 
( 
16 x" Oe! 
(10) 


17-19 
(11-13) 


l 
i 
i 
{ 
{ 
( 
20 {x*o1!8 
(14) | 
21 
(15) | 
| 
| 
| 
{ 


22-25 {MVI 26(1),x¥"07! 


(16-19) | NCE 0 (0) 
| 


26-27 Svc 0 
(1A-1E) | 

| 
28-29 |SVC 0 


(1C-1D) | NOPR 0 


| 
1H'OF 


30-31 
(1E- 1F) | 
| 
32 jc*o2' 
(20) | 
z 
33-35 |AL3(&IOAREA2) 


(21-23) | AL3 (GICAREA1) 


[ 
| A (GECFADER) 


36-39 

(24-27) |SVC 50 
{H*O* 

| i 

40-43 |A(0) 

(28- ZB) | 

“er 

44-47 |NOP 0 (0) 

(2C=2F) | 
[ 

48-55 |X'02',SIOAREA1,¥'00',&S0VBLKSZ 


(30-37) |X'02",SIOAREA1,X'00', &BLKSIZE 
. | 

56-59 |L SICFEG,96(1) 

(38-3B) | NCP 0 (0) 


DIFPT: 
1017 (Part 1 of 2) 


fee 
ICCB (X*80! 
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| Function 





in byte 2). 
l 


[ 
JIndicates DTF table relocated by OPENR. 


jAddress of logic module. 


DTF type. 
Bit 0 OPEN indicator. 
1 Two I/O areas. 
2 EOF indicator. 
3-5 Not used. 
6 Scanning. 
7 Not used. 


NOP first SVC 0 if two areas. 
If one area. 


Read a record. 


Read another record if two areas. 
If one area. 


| 
| 
( 
| 
| 
| 
{ 
| 
| 
| 
i 
| 
l 
{ 
| 
{ 
| 
| 
| 
| 
{Record length field. 
| 

| 

[ 

; 

| 

{If two areas. 

{If one area. 


|}End-of-file address. 
{No EOFADDR operand. 


CCW: if CVBLKSZ specified. 


if OVBLKSZ not specified. 


jPut input area address into user's register. 


{No IOREG cperand. 





DT AAT COA DTD SA CTT TAD OD AAS EI OS AD A KAA ES PLES AD SIT 


Unit 
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| 
L 
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Bytes* | Contents 
60-63 |LH &RECSIZE, 30 (1) 
(3C-3F) | NOP O (0) 


| 
64 1x02" 
(40) | 


| 
65-67 |AL3(SIOAREA1) 
(41-43) | 


| 
68-71 |A(0) 
(44-47) | 


| 
12-15 {FtO* 
(48-4B) | 


(4C-4F) | A (0) 


| 
80-83 JA (GLTRANS) 
(50-53) |A,(0) 


[ 
84-87 {A (&FTRANS) 
(54-57) | A (STRANS) 
| A (0) 


| 
88-91 |A(&SCAN) 
(S8-5E) | 


| 
92-95 |F'&BLKSIZE! 
(5C-5F) | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
( 
| 
| 
| | 
{ 76-79 [A (&FTRANS) 
| 
| 
| 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| | 
} 96-103 | 
{| (60-67) | 
| | 
{104-109 | TR 0(0,4) ,0 (5) 
{| (68-€D) {TM 0,C 
{ | NCEE 0 


Cae eee amk> GED HS! ERED cE GED ee GREE CEE SEED GE ED ee 


—————f— 




















*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 24. DTFEFT: Translation, 
1017 (Part 2 of 2) 
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a a a a ar 
| Function ] 
<a ie cic is sca si ano a eben FT GPEEDgu-ep-i> Ps s sD | 

}Put record length into user's nedeeter: 1 
{No RECSIZE operand. | 
| [ 
[ | 
| l 
( | 
jAddress of current input area. | 
I | 
( [ 
jAddress of remainder in input area. | 
| 1 
| | 
{Length of remainder. | 
| | 
| | 
JAddress of figure shift table. | 
|No FTRANS operand. { 
| { 
{Address of letter shift table. | 
{No LTRANS operand. | 
{ | 
|Address of current translate table. | 
{If FTRANS not specified. | 
{If no translation is specified. { 
[ 

}Address of scan table. | 
{ | 
| { 
{Required record length. | 
( ; 
| | 
{Duplicate CCW. | 
| | 
| [ 
{If TRANS, LTRANS or FTRANS specified. ] 
JIf no translation specified. | 
[ a ee _| 


28-29 {svc 0 
(1C-1L) |NCER 0 
| 
30-31 |H*O! 
- (1E-1F) | 
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Read another record if two areas. 
If one area. 


Record length field. 


SS a ee ee ee ee ee ee ee eee 
| Bytes* | Contents { Function | 
(Sees = a cana | 
0-15 | {CCB (X'*88" in byte 2). | 
(O0O-OF) | | 
|. { 
16 }x'0O8! jiIndicates DTF table relocated by OPENR. 
(10) | | 
i { 
17-19 | }Address of logic module. 
(11-13) | | 
| | 
20 {xX'ot' |DTF type. 
(14) | | 
| { 
21 | {Bit 0 CPEN indicator. 
(15 | | 1 Two I/O areas. 
| | 2 EOF indicator. 
i | 3-5 Not used. 
| | 6 Scanning. 
( | 7 Read Error. 
| | 
22-25 |MVI 26(1),X'0O7' {NOP first SVC 0 if two areas. 
(16-19) |NOP 0O(0) {If one area. 
| | 
26-27 |svc 0 {Read a record. 
( 1A- 1B) | | 
| | 
| 
| 
{ 
| 
| 
| 


{ 
32-35 |A(SICAREA2) 
(20-23) |A (GICAFEA1) 


| 
36-39 |A(&ECFADER) 
(24-27) {Svc 50 
{HO 
i 
40-42 {A (GERROPT) 
(28-2E) | 
( 
ISR 0,C 
[SVC 6 
1B 0(14) 
1B 4(14) 
{ 
44-47 {A (&SWLRERR) 
(2C-2F) | A (GERRCPT) 
1B 0(14) 
{B 8(14) 
{ 


Ok et et ee ee as ee ee a ae oe eae 


Figure 25. DIFPI: Translation, 


(Fart 1 of 2) 


}If two areas. 

{If one area. 
|End-of-file address. 
{No EOFADDR operand. 
i 


Address of user's error routine if 
ERROPT=name. 


ERROPT omitted. 


| ERROPT=SKIP 
| ERROPT=IGNORE 
| 


j Address of user's WLR routine if WLRERR=name 


|WLRERR absent and ERROPT=nane. 
{WLRERR absent and ERROPT=SKIP. 


{WLRERR and ERROPT both absent or WLRERFR absent 


jand ERROPT=IGNORE. 





EPL IS SG ITS AE AES ST TED ES SD A NS RD STS TEED LS AS ACERS ARS LO AD SEND ED 
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2 ODD ECD ERD CED AGED IRD AD GOED TA ETE PE AES EE ED SRD CTS GOUEP TED OES AED YN CSREES EEE NED PAE APD SPEED COD 




















c ee ene eee Og ne ee ee oe pal 
| Bytes* | Contents | Function ] 
(= ee Sa ee SS | 
{| 48-51 |L SICFEG, 32 (1) {Put input area address into user's register. | 
{| (30-33) | NOP O (0) {No IOREG operand. | 
i i | { | 
{| 52-55 {LH &RECSIZE, 30 (1) {Put record length into user's register. [ 
1 (34-37) |NOP 0 (0) !No IOREG operand. ; 
( | | | 
{| 56-59 |A (&FTRANS) {Address of figure shift table. ] 
{ (38-3B) {A (0) {No FTRANS operand. | 
( { l i 
{| 60-63 |A (&LTRANS) {Address of letter shift table. i 
| (3C-3F) {A (0) |No LTRANS operand. | 
[ | { [ 
| 64-67 |A (&FTRANS) | j|Address of current translate table. | 
| (40-43) | A (&TRANS) JIf FTRANS not specified. { 
{ JA (0) {If no translation specified. ] 
( [ | | 
{} 68-71 |A (&ESCAN) {Address of scan table. { 
| (44-47) | 
! l | | 
{| 72-79 | {Duplicate CCW. | 
| (48-4F) | | [ 
i | | [ 
{| 80-87 iX"Q0€*,SLTOAREA1,X'00' ,&EBLKSIZE |CCW. | 
| (50-57) | | | 
( i , | { 
} 88-93 {TR 0(0,4) ,0(5) [If TRANS, LTRANS or FTRANS specified. | 
{ (58-5D) {TM 0,0 {If no translation specified. | 
{NOPR 0 | 
ss a a as as eh ea ew eis Ss See eb ee aes oe iain eb oa ea se nine eae cin nem ines ie snc sisson es ess ae | 




















*Numbers in parentheses are displacements in hexadecimal nctation. 


Figure 25. DTFPT: Translation, Shifts and Deletes, Undefined Records; Device=1017 
(Part 2 of 2) 
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| eee LE ED AN CD AED CRD ND COED ND AD ED ET ER ED TY EE 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 26. 


RD EE US AD OSEYY ICES ND CEN) I ED COD ABEL GERD CPD CET GED abe <TD CaS EMD CON A me Ca RE CE er eee et GER? EY ES EY CEE OED A CED ED ESD EE CE EE EE REDD CS TD ED GOED CRED TEND 


Bytes* | Contents 


0-15 | 


| 
x'0O8' 


xo 


22-25 
(16-19) 


L SIOREG,48 (1) 
NOP 0 (0) 


26 
(18) 


‘|X*&EDEICHAR' 
x¥*'o00" 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
|X 
| 
27 
(1B) , 
Z8-31 {A (&ICAREA2) 
(1C-1F) | A (GICAREA1) 


i 
32-47 1X¥'01",SIOAREA1, ¥*'00! 
(20-2F) |D*08 


,GBLKSIZE 


1X'01',SIOARFA1,X'00',&BLKSIZE 
1x'01",68,X'00",01 
| 
4e-55 | 
(30-37) | 
l 
56-59 |A(STRANS) 


(38-3B) [A (0) 


60-63 |A(&ERRCPT) 
(3C-3F) | 

ISR 0,0 

[svc 6 

1B 0(14) 

| 
64-67 |STH &RECSIZE,54 (1) 


(40-43) [NOE 0(0) 
l 
{X*&EOQRCHAR!? 
1x'00! 


68 
(44) 








CTFET: No Shifts, 
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| Function 


Ae Came ae ERNE EE RRR TREE ENE CARE ERS AEE GETTY ET CD EEDA CHS GND ED CHES ASTD RD EE TREES MRT GERD CIETY SNIDER CTY TD NERD CHRD ATTY TR CD OED | 


ICCB (X'8A! 
| 


l 
{Indicates DTF table relocated by OPENR. 
| 


in byte 2). 


Address of logic module. 


I 

| 

| 

| 

{DTF type. 

{ 

| 

{Bit 0 OPEN indicator. 
{ 1 Two I/O areas. 

| 2 Write error. 

| 3 CLOSE indicator. 
| 4-5 Retry counter. 

{ 6 Not used. 

| 7 Undefined record. 
l 


[Put output area address into user's register. 
{No IOREG operand. 

{ 

{Delete character. 

|No delete character specified. 

I 

| Not used. 

l 


[ 
{If two areas. 


{If one area. 


| 
J}CCW if RECFORM=FIXUNB. 


| 
|CCW if RECFORM=U NDEF. 
| 


Duplicates CCW. 


{Address of user's translate table. 
{If no translation specified. 

| 

jAddress of user's error routine if 
| ERROPT=none. 

J|ERROPT absent. 


! 

| ERROPT=IGNORE. 

{ , 

{Save user's record length. 
|}No RECSIZE operand. 


{End of record character. 
INo EORCHAR operand or RECFORM=FIYUNB. 








a0) > ce Eee GEER em 


Device=1018 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 
| 
{ 
| 
| 
| 
| 


a | 
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= ee eR ae ee eee ey ee 
| Bytes | Contents 
|- ee eee event 
| “0- LS 

| (00- OF) | 

| | 

| 16 px'oer. 

{| (10) | 

| | 

{| 17-19 | 

| (11-13) | 

( | 

{| 20 ;x'ott 

1 (74) | 

| l 

| 21 | 

| (15) | 

[ | 

i [ 

l i 

| | 

{ | 

{ | 

| 22-25 |L SIOFEG,56(1) 

{ (16-19) | NCP. 0 (0) 

i | 

| 26 |X "S&DELCHAR® 

| (1A) ;x*oo? 

\ | 

| 27 | 

| (1B) | 

i | 

| 28-31 | A (GIOAREA 2) 

{ (1C-1F) {A (&IOAREA1) 

l | 

|) 32-55  |«xX*'01',27,x*'80',01 
| (20-37) |X! 01° ,GIOARFA1,¥! 00',&BLKSIZE 
| [D*O* 

i {x'01",27,X'80',01 
{ {X'O1",SITOAREA1, X'80!,&BLKSIZE 
{ (x*01",82,xX'00', 01 
| { 

| 56-63 | 

{| (38-3F) | 

{ | 

{| 64-67 |A(ETRANS) 

| (40-43) {A (0) 

| | 

| 68-71 |A(&FSCAN) 

{ (44-47) | 

i | 

{ 72-75 |A(&LSCAN) 

{| (48-48) | 

{ | 

| 76-79 {STH &RECSIZE,82(1) 
| (4C-4F) {NOP 0 (0) 

{ { 

{| 80-81 |{H'SOVBLKSZ'! 

} (50-51) |H*&BLKSIZE! 

l | 

{| 82 |X *&EORCHAR'! 

} (52) {xX*'OO! 

Gr ae es rt eee as en et ces Saw eee Ss ine es a ets nb ee monn aol 

ae 

Figure 27. CUTFFT: Shifts, Device=1018 
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CARD AD AS EY OUTED CS AD ED ES CLES SD ED CTD SEED PEP CMD | 


SS AY A A OD a AD SD -SD SAD GEP OND AAD ONDE 





{ Function 





{CCB (X*82" in byte 2). 


Indicates DIF table relocated by OPENR. 
Address of logic module. 
DIF type. 


0 CPEN indicator. 
1 Two I/O areas. 

2 Not used. 

3 CLOSE indicator. 
6 

7 


to 
f-te 
c+ 


5 Retry counter. 
Shifted. 
Undefined record. 


|Put output area address into user's register. 
{No IOREG operand. 

| 

|Delete character. 

{No delete character specified. 

| 

{Reserved for first shift character. 

| 


| 
jIf two areas. 


|If one area. 


| 
{CCWs if RECFORM=FIXUNB. 


| 
| 
CCWs if RECFORM=UNDEF. 


| 
| 
| 
| 
{Duplicate CCW. 
| 

| 


{Address of user's translate table. 
{If no translation specified. 


JAddress of user's figure shift status table. 


Address of user's letter shift status table. 


[Save user's record length. 


_|No RECSIZE operand. 


| 
JIf OVBLKSZ specified. 


J} If OVBLKSZ not specified, or RECFORM=UNDEF. 


jEnd of record character. 
|No EORCHAR operand. 





Numbers in parentheses are displacements in hexadecimal notation. 


ED CCAD aa aca ae aa a aaa | 


Sans Cems cm lig tym enh Sus ci eta i ne’ ai ei i me en es et st nl 


PTMOD Macro 


The PIMCD macro can generate ten logic 
modules for the GET or PUT function for 
paper tape files. The particular module 
depends on DEVICE=, TRANS=, and SCAN= macro 
parameters. The user can obtain four 
different logic modules for the 2671 paper 
tape reader if DEVICE=2671 is specified or 
if DEVICE= is omitted. He can obtain four 
different logic modules for the 1017 paper 
tape reader if DEVICE=1017 is specified and 
two different logic modules for the 1018 
paper tape punch if DEVICEF=1018 is 
specified. 


The TRANS= parameter specifies whether 
or not the generated module contains the 
logic needed to translate non-shifted 
punched paper tare characters into EBCDIC 
code on input (2671/1017 paper tape reader) 
or EBCDIC code into non-shifted punched 
paper tape characters on output (1018 paper 
tape punch). 


The SCAN= parameter specifies whether or 
not the generated module contains the logic 
to handle records containing shift and/or 
delete characters. 


All modules support the use of either 
one or two I/O areas. Decision blocks are 
included in the flowcharts to indicate the 


procedure followed for both one and two I/0 
areas. : 


acro, No fIranslation, 
Device=2671, Chart CJ 


punched in EBCDIC code. 


Entry: From a GET macro expansion. 


two I/O areas, the GET routine makes use of — 


three key instructions contained in the DTF 
table. The three instructions, repeated 
here fcr convenience, are: 








ee ==-5S 5 ie | 
| Statement | Ore | Two | 
{ : {| Input [| Input i 
{ | Area | Areas i 
| -——-----—__—__- - +} --- eee -| 
| IJEIMCVE {NOE 0(0) | MVI IJE1SVC1,X*0O7* | 
| | | (NOP first svc 0 | 
{ | | instruction) | 
[ | | { | : | | 
| IJEiSvc1 |svc 0 | SVC O (first) | 
; l | ; { 
{ IJE1SVC2 {NOPR 0 {| svc O (second) | 
ne ee | 


If only one I/O area is specified for the 
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file, the GET routine uses the ‘first! SVC 
0 instruction to read a record from the 
paper tape device. After the complete 
record has been read into the I/O area, the 
I/O area address in the CCW and the I/0 
area address in the DTF table are 
exchanged. (In this case, the exchange is 
meaningless because both addresses are the 


same when only one I/O area is used.) The 


record is then checked for errors and 
control is returned to the problem progran. 


If two I/O areas are specified for the 
file, the GET routine uses the 'first' SVC 
0 instruction to read the first record 
only. After the first record is read, the 
first SVC 0 instruction is made a NOP by | 
the execution of the instruction contained 
in the DTF table at the label IJE1MOVE. 

The first SVC 0 instruction is restored 
only if it is needed to handle error 
conditions. After checking for I/0 
complete and reading a complete record into 
the I/O area, the addresses of the two I/0 
areas are exchanged, and the record is 
checked for errors. The GET routine then 
NOPs the first SVC 0 instruction and uses 
the 'second!' SVC 0 instruction to read the 
next record. From this point on, only the 
second SVC 0 instruction is used, except 
for handling error conditions. The GET 
routine returns control to the problem 
program without waiting for completion of 
the I/O operation started by the second SVC 
Q instruction. 


PTMOD: GET Macro, Translation, No Shifted 
Code, Device=2671, Chart CJ 


This GET routine functions the same as the 
GET routine for no translation. It differs 
only in the logic included to accomplish 
the required translation once a complete 
record has been read into the I/O area. 


PTMOD: GET Macro, Translation, Shifted 
Code, Fixed-Unblocked Records, Device=2671, 
Chart CK 


The basic module is the same as the GET 
with Translation of Shifted Code except for 
the method of obtaining the correct number 
of bytes to complete the fixed length 
record. Because the number of control 
characters throughout the tape record is 
unpredictable, a routine is included to 
ensure that the correct number of valid 
characters is included. The user specifies 
the number of characters to be read in 
(OVBLKSZ) to produce a specified number of 
bytes (BLKSIZE) after the control 
characters have been deleted. 


For example, a group of 70 punched tape 
characters (OVBLKSZ) are to be read to 
produce a fixed length record of 50 
characters (BLKSIZE). However, because 
excessive delete characters are 
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encountered, the record contains only 45 
characters. To reduce the number of 
physical I/O cperations, a second group of 
25 punched tape characters is read to 
ensure that the 5 characters needed to fill 
the original record are obtained. On the 
next GET, the remaining characters (if any) 
from the second grcur of punched tape 
characters are moved into the leftmost 
positions of the input area. The byte 
count and the data address in the CCW are 
modified acccrdingly before the next SVC 0 
is issued. 


Se CD ORES EA ED ED AE AE ED oD 


This GET routine for undefined records 
functions in much the same manner as the 
GET reutine for fixed length records. The 
routine differs in the use of two translate 
tables; one takle is required for letter 
Shift, and the cther for figure shift. 


Shift characters and delete characters 
contained in the punched paper tape are 
removed from the record as translation 
takes place. The record in main storage is 
thereby compressed and left-justified. 


GET LOGIC FOR THE 1017 PAPER TAPE READER -- 
BASIC PRINCIPLES 


The DTF table ccntains three key statements 
for the four kasic logic modules generated 
by the macre instruction PIMOD for the GET 


logic. The three statements are: 

ent Bat g gt ee ee ge eg ee gy ee ee 
| Statement | Ore | Two | 
| { Input | Input | 
| | Area | Areas { 
| -——--------—--}------_- |---| 
| IJEMCVE { NCP O(0){ MVI IJESVC1,X'O7* | 
| { | | 
| IJESVC1 | svc 0 | svc 0 | 
| | | | 
| IJESVC2 {| NCEFR O | SVC 0 | 
a i a i ess a see Se cess cece ne a es a ieee ire and etme 


First Macro Instruction GFT: 

The first GET macro instruction requires 
that the twc input areas be filled. At 
first, the statement IJESVC1 requires SVC 
0. Then the statement IJEMOVE changes 
IJESVC1 to NOP 0 if two input areas are 
specified. | 
Logic for Qne Input Area: The following 
steps are necessary when creating the GET 
logic for cre irput area: 

1. Execute IJESVC1 (read a record). 


2. Wait. 
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3. Process record (all tranSlating and 
editing). 


4. Change input areas. (If only one input 
area has been specified, input areas 
are not changed because the same name 
is generated in both areas of the DTF 
table.) 


5.4 Execute IJEMOVE (NOP instruction). 
6. Execute IJESVC2 (NOP instruction). 


7. Return to user's program. 


Logic for Two Input Areas: The following 


steps are necessary when creating the GET 
logic for twe input areas: 


1. Execute IJESVC1 (NOP instruction, 
except the first time a record is 
read). 


2. Wait for read operation of the 
preceding GET macro instruction. 


3. Restore IJESVC1 (in case of End of file 
fer possible reopening). 


4. Process record. 
5. Change infut areas. 


6. Execute IJEMOVE. This statement 
changes IJESVC1 into a NOP instruction. 


7. j%Execute IJESVC2 (read a record). 


8. Return to user's progran. 


Error Checking: The same standard error 
checking routines are provided for one or 
two input areas. 


Only undefined records are checked for 
wrong length errors. For this, the user 
must specify one byte in excess of the 
longest record. If the residual count is 
zero, control is given to the wrong-length 
error routine. 


When physical IOCS indicates a permanent 
data check (bit 4 of the communication byte 
in CCB), the reader is stopped following , 
the erroneous character so that the input 
area is not completely filled. Logical 
IOCS starts a read operation to obtain the 
remainder of the record, then exits to the 
error option. 


End of File: Upon detection of an 
end-of-file condition (unit exception in 
CSW) by physical IOCS, a flag is set in the 


-CCB (bit 1 of the communication byte). 


When logical IoOcS detects this flag, an 
input area can still be processed. Thus, 
control is given to the EOF routine only at 
the following GET macro instruction. 


PTMOD: GET Macrc, 


Device=1017, Chart 


Translation, 


In tz 
i110 


Objective: To read a record from the paper 
tape without performing translating or 
editing. 


after the GET macro expansion (normal 
return), or tc cne of the other possible 
user's routines (end of file, wrong length, 
data error). . 


Objective: To read a record from the paper 
tape and to perform the translate function, 
that is, to trarslate the paper tape code 
to an acceptakle code. 


after the GET macro expansion, or to one of 
the other possitle user's routines. 


described under "Basic Principles", except 
for the translate function. The translate 
function is perfcrmed using the TRANS table 
specified by the user, which must satisfy 
the requirements of the TR instruction. 


Objective: To read a record from paper tape 


uSing the translating and editing 
procedures. 


Entry: From the GET macro expansion. 


Exit: To the user's program or to the EOF 
routine. 


Method: The metkod is described under 
"Basic Frinciples", except for obtaining 
the ccerrect rumker of bytes to complete the 


fixed length record. 


The number of characters specified by 
the user in OVBIKSZ is read in, translated, 
and compressed as described in the 
following secticn (see Charts GL and GM). 
If the resulting record is shorter than 
that specified in BLKSIZEF, additional 
characters are read in, translated, and 
compressed tc ccmplete the record. a 
Additional reads are perfcrmed until the 
record length is equal to or greater than 
BLKSIZE. On the next GET macro 
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instruction, the remaining characters, if 
any, are stored in the leftmost positions 
of the next input area to be read in. The 
I/O command is modified by the length of 
the remainder. 


PIMOD: GET Macro, Translation, Shifted 
Code, Undefined Records, Device=1017, Chart 
CP 


Objectives To read a record from the paper 
tape and to perform translating and 
editing. 7 


Entry: From the GET macro expansion. 


Exit: To the user's program one instruction 
after the GET macro expansion, or to one of 
the user's routines (end of file, wrong 


length, data error). 


Method: Only the translating and editing 


functions are considered. The logic is 
described under "Basic Principles". 
Editing is done as follows: 


1. A scan for shift and/or delete 
characters is made using the Scan 
table. All entries of this table are 
zero except the entries for the shift 
and/or delete characters. Scanning i 
performed by a TRT instruction. 


2. When a shift and/or delete character is 
encountered, scanning stops and the 
corresponding address is stored. = 


3. The preceding segment is translated by 
means of the current translate tables 
LTRANS or FTRANS, depending on the 
current shift status. Then, the 
translated segment is moved by one 
character for left-justification to 
delete the shift or delete character 
found. 


4. If the remaining record length is not 
zero, the procedure is resumed at step 
1. If the remaining record length is 
zero, the new record length is computed 
and indicated to the user's program. 


PUT LOGIC FOR THE 1018 PAPER TAPE PUNCH -- 
BASIC PRINCIPLES 


For the PUT logic, the PTMOD macro 
instruction generates only the two 
following logic modules: 

e PUT without the shift code procedure. 
e PUT with the shift code procedure. 
The same logic module performs the 


different functions by means of the switch 
byte in the DTFPT table, which contains all 
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the informaticn required ky the PTMOD logic 
module. 


The bit positions of the switch byte and 


the corresponding functions are: 
Bi a Function 


OPEN indicator 

0 = 1 IOAFEFA, 1= 2 IOAREAS 
Reserved (write error indicator) 
CLOSE indicator for logical ERP 
transient 

Used as retry counter. 

Used as retry counter 

0 = no shifted codes, 

1 = shifted codes 

Record format: 

O = FIXUNE, 1 = UNDEF 


WN =| © 


~~] nn & 


, No Shifted Code, 
£ CO 


Objectives To perform the translate 
functicn where required and to punch the 
record on the paper tape punch. 


Entry: From the PUT macro expansion. 


peter the PUT macro instruction (normal 
return), or to the user's error routine. 


Methods The logic for one output area 

requires the following steps: 

1." Translate the record, if the translate 
table address in the DIFPT table is not 
ZeErQ. 


2. Punch the output area (write 
operation). 


3. Wait. 


4. Check the operaticn. On data check, 
the logical transient $$BERPTP is 
called. If it detects a permanent 
write error in the CCB, the logic: 


e punches the remainder of the record, 
because the punch has stopped on the 
erronecus character. 


@ gives cortrol to the user's error 
routine, if any, or takes the error 
cption. 


5. Return to the user's frogram. 


The logic for two output areas requires the 
followirg sters: 


1. Translate the record if the translate 
table address in the DTFPT table is not 
ZeLO. 

2. Wait until the end of. the arene 
macro instruction. 
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3. Check this operation. 
4. Punch the output area. 


5. Return to the user's progran. 





edi ieiaG functions and to punch the record 
On the paper tape punch. 


It 


ntry: From the PUT macro expansion. 


Exit: To the user's program one instruction 
after the PUT macro expansion. 


Methods: Only the translating or editing 
function is considered here, because the 
remaining logic is described pages "PUT 
Macro, No Shifted Code." 


An unrecoverable I/O error cannot be 
ignored (X'80' in the communication byte of 
the CCB). If it is ignored, an 
unrecoverable I/O error on a shift 
character may occur. The method is mainly 
based on a channel program having three 
CCWs. 


CCWO Write at beginning of record the 
shift character depending on the 
first character of the record. 

CCW1 Write the whole record. 

CCW2 Write the EOR character in the UNDEF 


record format. 


Insertion of shift characters in a record 
results in lengthening of the record. If 
the user does not use the option OVBLKSZ, 
several WRITE operations are required to 
punch the record. If OVBLKSZ has been 
specified with a value greater than that 
specified for BLKSIZE, the record can be 
punched in a single operation. 


The following steps describe the logic 
of the editing function: 


1. Determine the shift status of the first 
character in the record to include the 
correct shift character in the CCWO. 
This character will be the record 
header. 


2. Perform a scan using the correct 
scanning table (LSCAN or FSCAN), 
depending on the current shift status. 


3. When the end of the record or a change 
in the shift status is encountered, the 
scanning operation (TRT instruction) is 
stopped and the segment is translated. 


4. Test to make sure that the end of the 
record does not overstep the bounds of 


the output area (BLKSIZE or OVBLKSZ). 
If space is left, the remainder of the 
record is moved by one character for 
right-justificaticn tc include the new 
shift character. Then, the procedure 
is resumed at step 2. If no space is 
left, the segment considered is 
punched. The remainder of the record 
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is moved to the beginning of the output 
area, for left-justification. fThen, 
the procedure is resumed at step 2. 


Note that OVBLKSZ is ignored for undefined 
records. For further information on 
OVBLKSZ, refer to "Paper Tape File (DTFPT)" 
in VSE/Advanced Functions Macro Reference. 
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MACNETIC TAPE FILES 


<--> 2 ane ap EP ae eR a OS OR en ake > Ci aap Ee eae 


Magnetic tape (MT) files are defined for 
logical IOCS by a DITFMT macro. Files so 
defined can ke e€ither input or output data 
files, or work files. The function of a 
particular file is determined, by the user, 
in the TYPEFLE= parameter of the DTFMT 
macrc. 


Magnetic tape files can also be defined 
for physical ICCS if the user intends to 
use physical ICCS macros such as EXCP, 
WAIT, etc. These files are defined by a 
DTFPH macro. 


In addition, magnetic tape system files 
can ke defined Ly the device independent 
macros, DTFDI and DTFCP. These files are 
described under "Device Independent Files" 
later in this manual. 


The data handling logic modules for 
files defined fcr logical IOCS by the DTFMT 
macro are provided by the associated MTMOD 
macrc. 


Files defined fcr logical IocS by the 
DITFDI macro can be EBCDIC files only. 
Files defined fcr logical IOCS by DTFMT, 
DTFFH, or DTFCP can be either EBCDIC or. 
ASCII (The American National Standard Code 
for Information Interchange) files. 


Magnetic tape files are opened and 
closed by logical transient routines 
fetched by the Open and Close monitors 
respectively (refer to VSE/Advanced 
Functions Diagncsis Reference: LIOCS Volume 
1). The open rcutine provide procedures 
for checking each file before any records 
are processed. The close routines provide 
procedures te terminate the use of each 
file after all records are processed. 
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DIFMT MACRO 


<p GEEP ane a ED ab axe omit CHD CED 


DATA FILES 


The DTFMT macro used to define magnetic 
tape data files can generate four basic DTF 


tables, one for each of the following 


record types: 


Fixed length 
Variable length 
Undefined 
Spanned. 


The four basic DTF tables have been 
combined into a single DTFMT table in 
Figure 28 of this publication. The values 
included in the table for a specified 
record type are noted. 


WORK FILES 


‘Figure 29 illustrates the DTF table that is 


generated when TYPEFLE=WORK, 
RECFORM=SPNBLK, or RECFORM=SPNUNB is 
specified by the user in the operand of a 
DTFMT macro. ASCII cannot be specified for 
work files. 


DIFPH MACRO (MAGNETIC TAPE) 


Figure 30 is generated by the DTFPH macro 


when the parameter DEVICE=TAPE is specified 
in the macro operand. The table contains 
the information necessary to define a 
magnetic tape file for physical IOCS. 


Licensed Material - Property of IBM 








| f |Record2 
Bytes* | Bits] Contents! i Function | Format 


0-15 | 
(00-OF) | 


| 
JInput: X00 '-x'63! {Buffer offset length, ASCII 
Outputs X'O00'=-xX'Og! | 
{ (Variable) [ 
X¥*00" (Undefined) | | 

|First time entered MTMOD for a file 
[Not used. 
|COBOL open; ignore option. 
}American National Standard COBOL 
{|DTF table address constants 
jrelocated by OPENR. 
1 spanned records 
1 ASCII 
0 EBC DIC 
ASCII input: 1 = Length Check 
ASCII output: 1 = Buffer 

| (offset length=4) 
Address of logic module. 


nN WM FWY wd © 
ite ou 


<< <4 <4 
. 
1o2) 


xe11! Nonstandard or unlabeled. 


jx'12' Standard labeled, output. 


| : 
{x*'13° Standard labeled, input, backwards. 


"148 Standard labeled, input, forwards. 


irst time switch: 
= not first-time entry. 
= first-time entry. 


So — hy 


blocked. 
unblocked. 


© aA 


two I/O areas. 
one I/O area. 


© 
no 


work area. 
no work area. 
work area, spanned. 


oO wt 
tou 


input. 
output. 


oO = 
TL 


in 


backwards. 
forwards. 


SO a 


checkpoint. 
no checkpoint. 


—a © 
T ou 


TRUNC required during Close. 


Symbolic filename. 


Z 
| 
{ 
|- 
| 
{ 
i 
i 
{ 
| 
| 
I 
l 
{ 
( 
( 
{ 
( 
| 
i 
| 
l 
{ 
i 
{ 
i 
{ 
i 
{ 
{ 
I 
( 
i 
| 
{ | 
| | 
i | 
| | 
[ | 
{ ( 
{ | 
| | 
l | 
{ i 
{ | 
| { 
| | 
| { 
i | 
I | 
i | 
| | 
| | 
{ I 
i | 
| | 
i | 
[ | 
{ | 
| | 
| l 
| | 
i | 
i { {Same as command code in CCW. 


| (1) i 4 : 1(x80O1", xX'02', or X'0C'). 


Oi cs cars ca eit Secs eae ccs ea cn ein eee nn ee ee POS ELE GEC: INET ALTE RELL BOY ISPS. LINE RTE TE AEP INE LIENS EL OED ELEGY SEL SEBO GEIIOLALA LE ILE LONE ee eR ND TALS I SOD SE SE ED EE ES ES EDS SE LS SS SD 


een semen SES eum was wun cee eee eres SE cme cme cms cen Smee, ce mee eee ee WE ees Gm <E, eegees  ceeec  G s em  gees  e  e  ee  g ee  ee ee oe um ee ome = eee ae ome od - 


L 


Figure 28. DTIFMT: Data Files (Part 1 of 8) 
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(SS re Se Se 

| | | j|Record2 | 
{| Bytes* | Bits| Contents! | Function [Format | 
|------~ —+-----+-----—----_-------- 4 ————— | 
{| 31 } O-4 | |Bits 0-4 are used as displacements | { 
| (1F) | {by OPEN to determine the location j| | 
| | | Jof variable fields of the DTF. | | 
( | | | | | 
{ ( i i [ | 
| | 1B°01110°8 j Input. | F | 
| | }2°011008 {Out put. | F | 
{ | 1B*10001° { Input. j Vv | 
{ | j2B'O01111°8 | Out put. | V | 
{ | {2'01101°8 {Input. | U | 
| | {B*O10118 {| Output. | U | 
| [ | { | | | 
| ; 5 | {1 = Tape label information | i 
| | | | included in DTF (see bytes. | | 
| i i I 88-95). | | 
{ | | {0 = Tape label information not | { 
| i | | included in DTF. [ | 
[ [ | | | | 
| | 6 | {Used by COBOL. | | 
[ ; | i { | 
{ ij 7 | {1 = Header label and EOV | | 
i ( | | information wanted. | | 
j ] | 10 = No header label and EOV ( | 
| | | { information wanted. | | 
I | i { [ | 
| 32 i; oOo f {Standard labels: | | 
(20) | | : = yes, 0 = no. | | 

j | [ 
| | 1 | j|Labels: 1 = nonstandard, j | 
| | | 10 = unlabeled. i | 
i | ( { | { 
| j 2 | {Rewind unload: | { 
| | | {1 = yes, 0 = no. | | 
| 1 i { [ ( 
| i 3 | {Rewind option: | [ 
( { | {1 = no rewind, 0 = rewind. | ( 
i | | { { | 
| i; 4 | {Drive direction: | | 
| | | {1 = backwards, 0 = forward. | { 
i | | | l l 
| i 5 | {User label address: | | 
{ ; | J}1 = yes, 0 = no. i [ 
| | | { l | 
| i; 6 | {Tapemark option: 1 = no, 0 = yes. | | 
[ | | { | | 
i (7 | |EOF-EOV switch (used by IBM SORT): | 
i { l {1 = yes, 0 = no. | { 
| { | | | { 
{| 33-35 | | {User label routine address. | { 
| (21-23) | I { | 
i | { { { | 
{ 36 i oOo | {DTFPH: 1= yes, 0 = no. | | 
i (24) i; 74 | {COBOL indicator: 1= yes, 0 = no. | | 
{ i 2 | [File type: 1 = input, 0 = output. | { 
a ; 3 | |FEOV switch: 1= yes, 0 = no. | | 
| i 4 | | EOF-EOV switch (output): ; ] 
{ i i {1 = EOF, 0 = EOV. | 
t ij 5 | {Open indicator: 1 = open, | | 
| [ | {0 = closed. { | 
| i 6 | {1 = variable or spanned records. | Vv,s | 
( 1 7 | 11 = undefined records. | wU | 
| is sl ones i ci iia Si mci tp sin ia em im ns ns en <i oma can ccd ets soca ei i in a i ng a a a a ne i i a a eee sk te a 
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ee et ee 





[DC A(BLKSIZE) 
{ 
{DC A (IOARFA1) 


{ 
[DC A(IOARFA2) 


| Bytes* | Bits| Contents! 
| ---—---——++ -----+---_---__---_-___-_---—— 
! 37-39 | | 

| (25-27) | | 

{ ( l 

{ 40-43 | | 

| (28-2B) | I 

I i | 

{| 44-471 | {BXH 11,12,24(15) 

| (2C-2F) | ; 

i |BXLE 11,12,24(15) 

l | | 

{ | |L &SVARBLD,DEBLOCKER 
; l | 

{ {NOP 0(0) 

[ | i 

i | {DC Fo? 

l i | 

{| 48-51 | {LA 14,1(14) 

| (20-33) | | 

| I {|BCTR 14,0+NOPRO 

i | | 

i i |L SRECSIZFE, DEBLOCKER1 
[ | | 

l | [NOP 0(0) 

{ [ ; 

{ 52-55 | |L SIOREG,DEBLOCKER1 
| (34-37) | | | 
| | {lL SIOREG, DEBLOCKERS 
{ { | 

| | [|L SICREG, DEBLOCKER2 
[ | i | 

| [NOP 0(0) 

l i i 

l | |L SRECSIZE,IJFVSREC 
{ | | 

i |ST SRECSIZE, IJFVSREC 
( | | 

{ 56-63 | | 

| (3&-3F) | ( 

i | | 

{ 64-67 | {DC A(IOAREA1) 

| (40-42%) | | 7 | 

i | {DC A(IOAREFA1+BLKSIZE-1) 
{ | | 

| } }DC A (IOAREA2) 

[ | I ; 

{ | |}DC A (IOAREA2+BLKSIZE-1) 
l | | | 

{| 68-71 | jDC For 

| (44-47) | 1 

{ { [DC A(IOARFA1+BLKSIZE 
i | | -RECSIZE) 

{ | | 

i | {DC A(IOAREA1) 

| | | | 

l | {DC A(IOAREA2) 

i | 

| | 

| 

i | 

| 

L 


tn ct fe 
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] Function 








{EOF address. 
Block count. 


Forward. 
Backward. 


If VARBLD parameter is used. 
DEBLOCKER1. 


Backward. 

If RECSIZE given. 

For input if not NOP. 
If IOREG specified. 
If IOREG specified. 
If IOREG specified. 
If no IOREG. 

If spanned input. 

If spanned output. 


CCW. 


One I/O area. 


\e) 
J 
@O 
= 
S 
Oo 


area, read backward. 
Two I/O areas. 
Two I/O areas, read backward. 


jInput. 
l . 
jInput backward: 
l 

| ‘ 
{One I/O area, outputs DEBLCCKER1. 


DEBLOCKER1. 


| 
| DEBLCCKER1: EBCTLIC 


l 
{One I/O area: 
i 


{Two I/O areas: 


DEBLOCKER2. 


DEBLOCKER2. 


Figure 28. DIFMTI: Data Files (Part 3 of 8) 


{Two I/O areas, output: DEBLCCKER1. 


| Record2 
| Format 


ce a ce et ee et ce ee me men 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[: 
| 
| 
| 
| 
| 
| 
| 
U | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
U | 
A 


CD GAD END REED GET GED CATO GERD CEEDR GEE OEE GED om ED NSE GERD com mE SOE cD CREED Cpe ES SEED SS ROD SEED SRST SR EEE CA ATED EG END SEE TRND RY ITD TEEN A A, LD EDS ATID OP AO ID OY ANDRE STEED OLED ATED LAO AEN EPL ALIS AT AED LOTT CoE CIDADE <ORNY COENEN) RI oI OMEN SDE GRID CHET HEI CED TRIED CASEY OND CER CED 
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= 
| | Record? 








| 
{| Bytes* | Bits| Contents! | Function {Format | 
[=== SSeS SS ee ee | 
{ 72-75 | |DC F'RECSIZE! |Forward: DEBLOCKER2. | F 
| (48-48) | | | | 
| | [CC F'-RECSIZE* {Backward: DEBLOCKER2. | F | 
| { | | | | 
| | JOC A(IOAREA1) {One I/O areas; DEBLOCKER2. | V,5 | 
| | { l { | 
| | |DC A (IOAREA2) {Two I/O areas: DEBLOCKER2. | V,S | 
| l | | | | 
| | {LA 14,1(14) j Forward. i U | 
| | | | | 
| | JECTR 14,0+4+NOPRO |Backward. | U | 
| | | | | | 
| 76-79 | {DC Fro? jInput forward: DEBLOCKER3. | F { 
| (4C-4F) | | | | | 
i | {DC A(IOAREA1+BLKSIZE © JInput backwards: DEBLOCKER3. | F | 
| { | ~RECS IZ £) | | | | 
i | l l ( | 
| {CC A(IOAREFA1+BLKSIZE-1) j}Output, one I/O area: DEBLOCKER3. | F 
| { { 7 | [ | 
| | [DC A (IOAREA2+BLKSIZE-1) JOutput, two I/O areas: DEBLOCKER3. | F | 
| | i l I | 
(DC FO! | DEBLOCK ER3. | v,s 
| [ { { { | 
{ { jCC Y (BLKSIZE) {| (Bytes 76-77 only) | vU { 
| | [ [ | | 
| | jDC Y (BLKSIZE-1) | (Bytes 78-79 only) | JU | 
| ( | i [ | 
| 80-83 | {DC Y(BLKSIZE)+Y¥(BLKSIZE-1) |Forward. | F | 
[| (50-53) | | { [ | 
| {DC &(BLKSIZE)+Y(BLKSIZE+1) | Backward. | F | 
l | | | l | 
| {DC Fo? | DEBLOCKER4. | v,s 
{ i i ; { | 
i i {LR 12,RECSIZE | (Bytes 80-81 only) {| U { 
l | | { | | 
| | IDC H'O8 | (Bytes 82-83) 1 vu | 
[ | | i I | 
{ €4-87 | {DC Y (RECSIZE-1) | (Bytes 84-85) {| F ] 
[| (54-57) | I | [ | 
{ | {Cc 2x'00! | (Bytes 86-87) Output, standard | | 
| | | j labels. | F | 
| | l { | 
| {DC A (IOARFA1+4) {One I/O area: DEBLOCKERS, EBCDIC. | V,S | 
| | | l | 
| | {DC A (IOAREA2+4) {fwo I/O areas: DEBLOCKERS5, EBCDIC.| V,S [ 
{ { | | { {| 
i i [|0C A(IOAREA1+BUFOFF) {One I/O area: DEBLOCKERS, ASCII. |; Vv i 
( | | l l | 
| | {DC A (IOAREA2+BUFOFF) {Two I/O areas: DEBLOCKERS5, ASCII. | Vv | 
[ [ i | | | | 
{ | jDC 2x*00! { (Bytes 84-85 output only) standard | F, U | 
| { | jlabels. Reserved for OPEN. { | 
{ | { [ | 
| | 1B 28(15) [Input only, ERROPT=omitted. i vu | 
l { | [ I | 
[ | {B 24(15) JInput only, ERROPT=SKIP. {| U { 
i | | | [ | 
| {B 28 (15) [Input only, ERROPT=IGNORE. | wu | 
l | I [ [ | | 
| | {DC A(ERROPT) jIinput only, ERROPT=ADDRESS | wvU | 
Oa ce eile Pay rayne ae eR eee PRO an elas SNe Ta ee TNE eR ee ee eee a RE ETT, 
Figure z8. DIFMTI: Data Files (Part 4 of 8) 
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¢———— Se er ee = a en ey 
{ { | { |Record2 | 
| Bytes* | Bits| Contents! i Function {Format | 
nes Sane a re es cence { 
} 88-91 | }DC A (WLRERR) jInput only WLRERR=ADDRESS. |For | 
{| (58-58) | | | |Fixed- | 
| | {B 24 (15) [Input only, WLRERR omitted and {Length | 
| | | | ERROPT=SKIP. {Records | 
i | | : { Jonly | 
| | {EB 28 (15) JInput only, WLRERR omitted and | { 
{ | | j ERROPT=IGNORE or omitted. | | 
{ { | | | | 
| | {DC 2x*OO! JOutput only, standard labels | { 
| | | | (bytes 88-89), reserved for OPEN. | | 
{ { | | | | 
| | {DC A (ERROPT) JInput only, WLRERR omitted and i { 
{ | | | ERROPT=ADDRESS. { | 
| { | { | [ | 
j 90-95 | {DC 6x*'0O! {File Serial Number, standard | | 
{ (5A-5F) | | jlabels, output only. | | 
{ { | [ i l 
| 92-95 || |}DC A(ERROFT) j|Input only, ERROPT=ADDRESS. | | 
| (5C-5F) | | jOutput, nonstandard labels only. | | 
| { | | ERROPT=ADDRESS | { 
| | {B 28(15) {Input only, ERROPT=omitted. | | 
{ { {B 24 (15) JInput only, ERROPT=SKIP. { | 
{ | {B 28(15) {Input only, ERROPT=IGNORE. | | 
| | | | [ { 
| $6-99 | jDc 4x*0oo! | Volume Sequence Number, standard | | 
{ (60-682) | { jJlabels, output only. | | 
| { | [ | | 
| 96-97 | {DC 2x'00!8 j|Standard labels, input only. | ; 
{ (60-61) | | j|Reserved for OPEN. | | 
( | | { | | 
| 98-102 | {DC 6x'OO! {File Serial Number, standard { | 
| (62-67) | | {|labels, input only. | | 
i I { | ; | 
| 100-103 jDc 4x*'OOo! |File Sequence Number, standard | | 
{ (64-67) | | Jlabels, output cnly. | | 
{ ( | | . { i 
|} 104-107] j0Dc 4x00! |}Volume Sequence Number, standard | | 
| (68-6B) | | {labels, input only. { | 
| | |DC A (ERROPT) }Cutput only. Standard labels only. | | 
| | | {ERROPT=ADDRESS | | 
{ | | { | ; 
| 108-111] joc 4x*oo? |}File Sequence Number, standard |. { 
| (6C-6F) | | jlabels, input only. [ { 
|--—--—--= —|-—-—-- |---| SO OO ee eee +------—— | 
{| 88-91 | {IC For | DEBLOCKER6. |For 
{ (58-58) | { | ] {Variable | 
| | | [Length | 
; 92-95 | {Cc A(ERROPT) {Output only. Nonstandard labels Jand | 
{| (5C-5F) | | Jonly. {Spanned | 
| | | | ERROPT=ADDRESS {Records | 
{ | { F l [ 
| 92-92 | {DC Y(BLKSIZE) JInput only. | | 
1 (5C-5D){_ {Dc Y (BLKSIZE-4) jOut put only: EBCDIC i; V,S | 
{ | {DC Y(BLKSIZE-BUFOFF) jOutput only: ASCII | V | 
[ | | | { | { | 
1} 94-95 | {0c Y (BLKSIZE-1) | | | 
[| (SE-5F) | | | | i 
i { { | i | | 
{ 96-97 | {DC Y (RECSIZE-1) | | | 
| (60-61) | | | | ; { 
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6Vrr eee OR SS Gar ee ee ee ne ee ah eee EE ee ee eee ny 
Ll { | | , |Record? | 
| Bytes* | Bits| Contents! [ Function [Format | 
a a nr See = [ 
| 98-99 | |Dc HO | ! {Input only: residual count |For ] 
| (62-63) | | | , 4 | Variable | 
i \ | | 7 | [Length | 
i 100-103] {CC A(WLRERR) {Input only, WLRERR=ADDRESS. Jand 
| (64-67) | {B 24(15) {Input only, WLRERR=omitted and {|Spanned | 
| | | | ERROPT=SKIP. |Records | 
l i { [ l | 
i 1B 32(15) {Input only, WLRERR=omitted and | 
| | ERROPT=IGNORE or omitted. 
{ | [ l { | 
{ 100-101 | joc 2x*'0O08 jOutput only, standard labels. [ | 
| (64-65) | | jReserved for OPEN. | { 
[ | | | | | l 
| 104-107 {DC A(ERROPT) {Input only, ERROPT=ADDRESS. | | 
| (68-6B) | {B 28(15) jInput only, ERROPT=omitted. | | 
{ ‘a {1B 24(15) {Input only, ERROPT=SKIP. | [ 
| | {EB 28 (15) jInput only, ERROPT=IGNORE. | | 
[ [ | | | , { | 
| | {DC A(ERROPT) | {Output, nonstandard labels only | | 
{ | | {| (Version 3 onward). ERROPT=ADDRESS | | 
i { | | | [ | 
{ 108-111 {rc 4x*o08 |}Volume sequence number. | | 
{ (6C-6F) | | {Standard labels, output only. [ | 
l | | | | | 
{ 108-109 | jDc 2x¥*00° {Standard labels, input only. | | 
{ (6C-6DL) | | }Reserved for OPEN. | | 
[ i | | | | 
| 110-115] }DC 6x*00! 7 {File serial number. | | { 
| (6E-732) | | {Standard labels, input only. | | 
i | l l | | 
} 112-115] {ipDc 4x00! |File sequence number. | | 
{ (70-73) | | {Standard labels, output only. ( { 
i { | { | | 
{| 116-1194 {DC A (ERROPT) |Cutput only, ERROPT=ADDRESS, | | 
{ (74-77) | | jstandard labels only. | | 
( | | | [ | 
| 116-119] }rc 4x*00! | Volume sequence number. | | 
{ (74-77) | | |Standard labels, input only. ] | 
i | | | | | 
| 121-123 {Dc 4x*O0! |File sequence number. | | 
| (78-78) | | {Standard labels, input only. | | 
| nnn nn nn nr rn tt ref e | 
| 86-91 | jDoc 6x'00! |File Serial Number. |For Un- | 
| (56-58) | | [Standard labels, output only. |defined | 
{ { {Records | 
{| 88-91 | JDC A (WLRERR) jInput only, WLRERR=ADDRESS. | only 
| (58-58) | | { [ | 
i | ( i | | 
{ | 1B 24 (15) jInput only, WLRERR=omitted and { | 
| | | | ERROPT=SKIP. | | 
( | | | | | | 
{ i {IB 28(15) jInput only, WLRERR=omitted and | | 
{ | | | ERROPT=IGNORE or omitted. | | 
[ | | i | | 
| | {DC A (ERROPT) JInput only, WLRERR=omitted and ] | 
| | | | ERROPT=ADDRESS. | 
| | | jCutput only, nonstandard labels, | ( 
| | | ERROPT=ADDRESS. 
( | l { : i i 
| 92-95 | {fc 4x*00* |}Volume Sequence Number. ] | 
{ (5C-5F) | | {Standard labels, output only. | | 
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Rae aa ga a ea a a a er ra | 
i | | |Record2 | 
{| Bytes* | Bits] Contents! | Function [Format | 
ace ee === {SS eS ee = | 
| 92-93 | jDC 2x00! {Standard labels, input only. |For Un- | 
{| (5C-5SD) | | jReserved for OPEN. {defined | 
| { | | jRecords | 
; 94-99 | {DC 6x00! |File Serial Numker. jOnly { 
| (5E-63) | | {Standard labels, input only. | | 
| | | i | | 
{| 96-99 | {DC 4x00! {File Sequence Number. | | 
| (60-63) | | {Standard labels, output only. | | 
i | | | | 
{ 100-103] jrc 4x*O00!8 | Volume Sequence Number. | | 
| (64-67) | | {Standard labels, input only. | { 
| | | | | | 
{| 100-103 | jDC A(ERROPT) jOutput only, standard labels only. | { 
| (€4-€7) | | | ERROPT= ADDRESS | | 
| i | | | 
| 100-103] jDC 4x00! {Volume Seguence Number. i | 
| (64-67) | | {Standard labels, output only. | | 
l | t | | | 
{| 104-107] {Dc 4x00! {File Sequence Number. | ; 
| (68-68) | | {Standard label, inpwt only. { | 
(=e S = ee S54 = SSS 
| 100-103] {DC A (WLRERR) JInput only, WLRERR=ADDRESS. | For | 
{ (64-67) | | {|Spanned | 
i | 1B 24 (15) JInput only, WLRERR=omitted |Records | 
i | {and ERRCPT=SKIP. {Only 
l | he S { | | 
{ | {B 32(15) jInput only, WLRERR=omitted | | 
| | | jand ERROPT=IGNORE or omitted. | | 
i | |. | | | 
| 100-101 | |DC 2x¥*'00* jOutput only, standard labels. | | 
| (64-65) | i {Reserved for OPEN | | 
| | | | 
{| 102-107] {File Serial Number {Standard labels, output only. | | 
| (66-6) | | | 
( | | | | | 
{ 100-103 jDc 4x*008 jOutput only, ERROPT=ADDRESS, | | 
| (64-67)] | jnonstandard labels only. | [ 
[ | | { | | 
{ 100-123 jDc 24x"*00! jOut put only, ERROPT=omitted, | | 
| (€4-7B) | |. jnonstandard labels. | | 
l i | ; [ | 
{ 104-107 {DC A (ERROPT) jInput only, ERROPT=ADDRESS. | | 
{ (68-68) |. {B 24 (15) jInput only, ERROPT=omitted. | | 
| | JB 24 (15) JInput only, ERROPT=SKIP. | | 
| | |B 28(15) jInput only, ERROPT=IGNORE. | | 
{ | | | | | 
{| 104-107 {DC A (ERROPT) jOutput only, ERROPT=ADDRESS, | | 
| (68-€B) | | |nonstandard labels. | | 
{ | | | | | 
{ 108-123 jDC 16x*00' JOutput only, ERROPT=ADDRESS, | i 
{| (6C-7B) | | jnonstandard labels. | | 
{ | t I ; | 
{| 108-111] {Volume Sequence Number jStandard labels, output only. | | 
| (6C-6F) | 7 
{ ve al | | | 
{ 112-115] |File Sequence Number j|Standard labels, output only. | { 
| (70-73) | | i | | 
i | | | ( | | 
i 116-119] {DC A(ERROPT) jOutput only, ERROPT= ero ( | 
| (74-77) | | {standard labels. | | 
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ED ID SD IUD OED ND ED AD ME HRD GED MUD Che ee GS aD HEED CED OOD GG: 


{1 The format of the tape data file DTF table is different starting at ryte 44. 


N 


(ok eee Te SD ER) CED CUD CHEED CED CRED) REED cmnED eEpRD-ED A CenAD <aeeerERE 


| 
Bytes* | 


| 
— 108-123 | 


(6C-7B) | 


i 
108-109 
(6C-6L) | 


( 
110-115] 
(6 F-7 3) | 


| 
116-119| 
(74-77) | 

| 
120-123 | 
(78-78) | 
124-127] 
(7C-7F) | 


128 
(80) 


129-131] 
(81-83) | 


Bits] 


| 
Contents! 


me ef a 


Ol & G) NO =) © 


~~ ON 


joc 4x*o08 
| 


| 
{DC 16x'00! 
| 


| 

{DC 2x*00! 

| 

{ 

[File Serial Number 

| , 

| 

[Volume Sequence Number 
[ 


{File Sequence Number 


jDc FQ! 


joc x*0o0o8 


[DC 3x00! 
| 


Re LG ALY SAFE ELOY GENIE OTD ID SED TE ED 








{ 

| | Functions 
+——— 
Out put cnly, ERROPT=ADDRESS, 
|standard labels. 

[ 

{Input only, 
| 


I 
{Standard 


| Reserved 





nonstandard labels. 
labels, input only. 
for OPEN. 


| 
| Standard 
| 


labels, input only. 
Standard labels, input only. 


Standard labels, input only. 


{Full word for loading and 
|storing USER RECSIZE: IJFVSREC 


| 

{| IJFVSFLG 
| 

{Sign bit, not used. 

{Skip to first segment. 

{First segment. | 

}Segment out of sequence, input 
fonly. 

[Read back for EQOV, output only. 
{File reversed fcr logical spacing, 
jinput CNTRL only. TRUNC issued, 
jJoutput only. 

{User TRUNC issued, 
|Multisegment, 


Output only. 
output only. 


{Skip Get Segment, input CNTRL only. 


| 
| Pointer within WORKA. 





DD GENO OAD AY METRE eA GENS ecco ma emake: 











| Record2 
|}Format 


|Spanned 
| Records 
{Only 





The 


ANE BREE ae cee ER PRE ACRE COD AREER SES arte Steg SERS AUTRE EER AEE URE CIP NERD AENEICS aRCRED SEIS OIE ASU REE ERR EER EER TREY APES FEET NEES SEED eng GUTS TR CARERS SLM SEES ACR OE IES RTOR CERRO PIER: aeieEE mE IT TG ELA NS GRRE CU EET SEUSS VEE RULER RRR RII SERS OS HR Ey COPD I EY, SO AES EINE ERD IRA CAR ipriatecmaer ar parrot aera | 


~----~-------—--------------4---——-—- | 


|For 


leocation irdicated by the numbers in the left hand column can contain only one of the| 


factors listed under "Contents", 


The factor used for any given DTF table is deter- 


mined by whether the file record format is fixed, variable, or undefined, and by oth-| 


er DIF parameters as indicated. 


tents apply to all record types. 


Record Format Explanation. 


F = Fixed Fecord 

V = Variable 

U = Undefined 

S = Spanned (variable format superset) 
The 


macrc instruction to another. 
names DEBLCCKER1 


to 6. 


ex to follow the listings. 


Figure 28. 
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Data Files (Part 8 of 8) 


deblceckers are scratch areas used by the modules to save data from one GET/PUT 
In the text and listings, they are referred to by the 
These are not labels, they are comments used to make it easi- 





A blank in the record column indicates that the con-| 


L 


ED ED CE AD ERY IE AED EED GS-OEED GET P GEP AD SE CED are ee 


{[Bytes* | Bits |Function 

SSS SS ee eee 

{| O-15 | {CCB. 

| (00-OF) | [ 

[ ( I 

( i { 

{16 {| O-1 {Not used. 

1 (10) i 2 {COBOL open; ignore option. 

| | 3 }1 = VOL1 label is at user specified density. 
i i 4 {1 = DIF table address constants relocated by 
i | 5-7 {Not used. 

{ { | 

117-19 | {Address of logic module. 

| (11-13) | | 

i { | 

| 20 { |DIF type = X'10'. 

| (14) t 

| { | 

{21 | O {1 = no rewind. 

{ (15) { 1 11 = rewind unload. 

| { 2 {1 = work file. 

{ i 3 11 = read backward. 

| {| 4 }1 = write. 

| | S {1 = POINTW. 

| | 6 {Not used. 

{ { 7 {1 = forward-space file before next operation. 
| { | 

,22-23 | |Not used. 

| (16-17) | | 

[ { ; 

24-25 | |Record length. 

| (18-19) | 

( l | 

{26-27 | {Maximum BLKSIZE. 

] (1A- 1B) | I 

[ | l 

{28 | {Read command code (X'02' for read forward, xX! 
| (1C) | | | 

! i 

{29-31 | {EOF address. 

| (1D-1F) | | 

| | | l 

{32-39 | |CCW. 

| (20-27) | | | 

i | | 

(40-43 | {Block count, initialized 00000000 for read 
| (28-2B) | Jread backward. 

[ | | 

p44 | oO {1 = error routine. 

{ (2C) ; 1 {1 = ignore. 

| i 2 |Not used. 

| {| 32 11 = record fixed unblocked. 

| | 4-7 |Not used. 

[ { | 

45-47 | {CC A(ERROPT) Address of error routine. 
| (2D-2F) | | 


to ED ED ENED ED UNE EARED SURE OUND GEREN ED CORED REND CED CURED GETS aD -Ee aD 
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RAPE GSD RRA ES SR RY AS GE CE ORT TY EE CS ERM AS ET EE 





| 
| 
| 
| 
! 


OPENR. 


OC*' for read backward). 


forward, 00400000 for 





*Numbers in parentheses are displacements in hexadecimal notation. 
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Cr te ee eet ne ee ED AD TES CES ED ESD CALA AD A STD EMEP AD OED CONS ED OD <TD 


| Bytes* |Bits |Contents 


(00-OF) | 


16 
(10) 


&=WwhD i 


SOW 


17=79.. 3 
(11-13) 


3xX'00! 


20 : 
(14) | 


{ 

l 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| xe 2" 
l 

{ x'14' 
| 

j} 21 

| (15) 

| 

| 

| 22-29 
| (16-1D) 
{| 30 
| (1E) 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


31 
(1F) 


B*Q1100! 


32 
(20) 


33-35 
(21-23) 


36 
(24) 


' & WHO 2a oO 


cn 


37-39 | 
(25-27) | { 








| Function 





| CCB. 


| 

( 

l 

|Not used. 

{COBOL open; ignore option. 
{Not used. 


{|DTF table address constants relocated by 


| CPENR. 

{Not used. 

{1 = ASCII, 0 = EBCDIC. 
|Not used. 


Standard labeled, output 


Standard labeled, input, forward. 


Not used. 
= input, 0 = output. 
Not used. 


— 


Symbolic filename. 


Not used. 


Used as displacement by OPEN. 
Reserved. 


standard labels. 

used. 

no rewind. 

used. 

User label address: 1 = yes, 0 = no. 
Not used. 


ok 
Oo 
ct Il 


= 
oO 
ct 


User label routine address. 


{/1 = DTFPH table. 

{Not used. 

|File switch: 1= input, 0 = output. 
{Not used. 

|1 = EOF switch. 

| Not used. 

| 

jUser label exit. 


a 


= 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


SS SY EE CERO ERS ED EES ES ES ED ED ED GS A LD ED GO OE OE ED COED ONE EE CENNCTEED GEER ED one ees CED SEES COED SED GS EE i tt as a a ae a i a as ws nd is ae a ee a es eee ee ee ee ee ed 


Figure 20. CIFFH: Magnetic Tape (Part 1 of 2) 


82 LIcCS Volume 2, SAM 


Licensed Material - Property of IBM 











Ce ge ay he a ae ee ee gp ee SF en fap a ee eC ae eG Ogg te Oe gE Oe FN he ag eee eG ee i ge es ey 
| Bytes* |Bits |Contents | Function | 
(SS a a ee ee ee 
{ 40-43 | jCc FO! {Reserved for OPEN. | 
| (28-2B) | | | | 
{ | | | | 
} 44-87 | | {EOV Routine. | 
| (2C-57) | | i | 
( | | | | 
| 88-89 | {DC 2x00! {Reserved for OPEN. | 
| (58-59) | | | | 
| | | | 
{| 90-95 | jDC 6x00! |File Serial Number. | 
[| (SA-5F) | | | | 
i | | | 
{| 96-99 | {fc 4x*00! {Volume Sequence Number. | 
| (60-63) | | | | 
i { | | | 
{100-103 | joc 4x00! | File Sequence Number. | 
| (64-67) | | I | 
Ge ee ea a eee a ee ee ia acs ee Soca Siti Si a nasi limp cimsn Gis oon epithe ni nln ela ees kes is sain Ta ee 
*Numbers in parentheses are displacements in hexadecimal notation. 
Figure 30. DTFPH: Magnetic Tape (Part 2 of 2) 
MIMCD MACRO 3 WORK FILES 
The MTMOD macro provides the logic modules The work file module is generated by the 
required to process both magnetic tape data MTMOD macro, when TYPEFLE=WORK is 
files and work files. In all, seven specified, to allow a tape drive to be used 
distinct modules can be generated; six for for both input and output in one program. 
data files with varicus record formats, and Although usually considered as an output 
one for work files. These modules supply file first, the function of a work file can 
the logic necessary to support all the be switched at any time, thereby allowing 
logical IOCS imperative macros used with records to be written on or read from the 
magnetic tare files. same file. 

Because some of the LICCS imperative The logic of the work file module uses 
macros are used with koth data files and the imperative macros READ and WRITE, 
work files and scme are used only with one instead of the GET and PUT used by data 
file type, the magnetic tape modules have files, to transfer records between the 
been combined and flowcharted to illustrate device and main storage. The work file 
the functions cf the individual imperative module also differs from the data file 
macros. | modules in that blocked records, switching 

| of I/O areas, and ASCII files are not 
Supported. 

‘DATA FILES : } In addition to the READ and WRITE 


imperative macros, the work file module 
Supports the NOTE, POINTS, POINTR, POINTW, 
A separate logic module is generated by the and CHECK imperative macros. CHECK must 


MTMOD macro fcr data files containing always be issued after a READ or WRITE if 
records in each of the following formats: the user wishes to ensure completion of the 
| | Operation before issuing another 
1. Fixed, blocked and unblocked. instruction. NOTE is used with the POINTR 
. and POINTW macros to position the tape to a 
2- Variable and spanned, blocked and predetermined record. The POINTS macro 
unblocked. instruction repositions the tape at the 
beginning of a file and sets an indicator 
3. Undefined. which causes the tape to be spaced over any 
tapemark or header labels when the next 
These modules provide the logic to perform READ or WRITE macro is issued. 


the functions cf the LIOCS imperative 

macros CNTRL, GET, PUT, RELSE, and TRUNC. 

IF RECFORM=SPNBLK or SPNUNB, a work area is 

required. Error Option Extensions 


Note: The last two imperative macros are 


not used with undefined records. When MTMOD specifies ERREXT=YES, checking 
is done for two types of errors: 
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the unrecoverakle I/O error bit (byte 
2, bit 2 of the CCB) is turned off. If 
no data check occurs, this bit will be 
left on. Pcinters and linkage 
addresses are saved kefore returning to 
the user. A pointer to a parameter 
list is placed in register 1. The 
parameter list contains: 


ae DTF address (4 bytes). 


b. Storage address of the block in 
error (4 bytes). 


ERRCPT routine is entered if a write 
error occurs. The device is considered 
to be inoperable, and a SVc 50 is 
issued to cancel the job if the problem 
program tries to return to the module. 
Register 1 points to the parameter list 
described fcr READ errors. 


CHECK Macrc, Work File, Chart DA 


Objectives: To ensure that a previously 


issued READ or WRITE macro has been 
satisfactorily completed. 


Entry: From a CHECK macro expansion to the 


label IJFWCHEK. 


To the prcblem prcegram, or to the 
EOF or ERROPT routine. 


Method: This macro instruction waits for 
the ccmpletion cf the input/output 
operaticn started by a READ or WRITE macro 
instruction. If the I/O operation is 
completed without detecting an error or an 
exceptional condition, CHECK returns 
control to the next sequential instruction 
following the CHECK macro expansion in the 
problem program. If the operation results 
in a read error, CHECK processes the user's 
option specified in the ERROPT entry of the 
DFT. If CHECK finds an end-of-file 
conditicn, control passes to the user's 
end-of-file routines. 


If ERREXT is specified, additional 
errors are returned to the problem progran, 
and greater flexibility is allowed the user 
in attempting to continue processing. 


Objectives To execute a nondata physical 


operation on the file. 


Entry: From a CNTRL macro expansion to the 


IJFFCNT for files containing fixed length 
records in EBCDIC. 
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IJFXCNT for files containing fixed length 
records in ASCII. 


IJFUCNT for files containing undefined 
records in EEBCDIC. 


IJFNCNT for files containing undefined 
length records in ASCII. 


IJFVCNT for files containing variable 
length records in EBCDIc. 


IJFSCNT for files containing spanned 
records in EBCDIC. 


IJFRCNT for files containing variable 
length records in ASCII. 


Exit: To the problem program. 


Method: The CNTRL macro is available to the 
user for nondata operations on the file. 
For a magnetic tape file, these operations 
ares: backspace, write a tapemark, forward 
Space file, etc. 


The control routine first checks to 
ensure that any previous I/O operation has 
been completed. Then the routine sets the 
control operation code in the CCW, and 
causes the control functicn to be 
performed. The orginal operation code is 
restored in the CCW, and, when I/C complete 
is indicated, the routine returns to the 
problem progran. 


MIMOD: CNIRL Macro Work File, Chart DB 
Objectives To perform a nondata physical 
operation. 


ntry: From a CNTRL macro expansicn to the 
abel IJFWCTL. 


Exit: To the problem progran. 


Methods This routine is for nondata 
operations on the file. For magnetic tape 
these operations ares backspace, forward 
Space, rewind, write a tapemark, etc. 


The routine puts the control operation 
code in the CCW, causes the control 
function to be performed, waits for the I/0 
operation to finish, and return control to 
the problem program. 


MIMOD: FEOV Macro, Chart DC 
Objectives To cause an EOV to occur before 
a true EOV condition is reached. | 


Entry: From an FEOV macro expansion to the 


IJFFFEO for files containing fixed length 
records in EBCDIC. 


IJFXFEFO for files containing fixed length 
records in ASCII. 


IJFUFEC for files containing undefined 
records in EBCDICcC. 


IJFNFEO for files containing undefined 
records in ASCII. 


IJFVFEO for files containing variable 
length records in EECLIC. 


IJFSFEC for files containing spanned 
records in EBCDIC. 


IJFRFEO for files containing variable 
length records in ASCII. 


Methods; The FEOV macro causes an end of 
volume conditicn to occur before the 
physical end of volume is reached. On an 
input file, the trailer labels are not 
checked and the user specified rewind 
option is executed. For an output file, if 
standard lakels are specified, a trailer 
label is created, and the user rewind 
opticn is executed. 


This routine sets the FEOV switch on in 
the [CTF table and calls $fBCEOV1 to close 
the file and execute the user specified 
rewind cption. If no rewind option is 
specified, a message is issued indicating 
the tape shculd ke rewound and unloaded. 


LJFFGET for files containing fixed length 
records in EBCCIC. 


IJFXGET for files containing fixed length 
records in ASCII. 


IJFUGET for files cortaining undefined 
records in EBCDIC. | 


IJFNGET for files containing undefined 
records in ASCII. 


“IJFVGET for files containing variable 
length records in EBCDIC. : 


IJFSGET for files containing spanned 
records in FBCDIC. | ; 


IJFRGET for files containing variable 
length records in ASCII. 


Exit: To the problem program or to the EOF 


address. 
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Method: The GET routine accesses the next 
sequential logical record in a magnetic 
tape data file. The record is moved from 
the I/O area to the work area if WORKA=YES 
is specified in the DIF. Otherwise, the 
record is available in the I/O area. 
Overlap occurs if two I/O areas are 
specified. 


The routine performs deblocking, if 
required (for variable length records, the 
user specified blocksize is obtained 
first), and then goes to a read/write 
subroutine. The read/write subroutine 
checks for first time, two I/O areas, 
checkpoint records, etc., and performs the 
required I/O operation. If ASCII is 
specified, the input is first translated to 
EBCDIC. If a work area is specified, the 
GET routine then branches to the work area 
subroutine that moves the contents of the 
I/O area into the work area. If a work 
area has not been specified, the address of 
the current I/O area is loaded into the 
user's IOREG. For variable length, spanned 
and undefined records, the record size is 
calculated and made available to the user. 
The GET routine then returns control to the 
problem progran. 


If ERREXT is specified, input errors are 
returned to the problem program, and 
greater flexibility is allowed the user in 
attempting to continue processing. 


MIMOD: NOTE Macro, Work File, Chart DF 


To put the tape block count in 


Entry: From NOTE macro expansion to the 
label IJFWNOTE. 


Exit: To the problem program. 


Method: The NOTE macro instruction obtains 
the identification of the last physical 
record that was read or written in the 
specified file. The user must ensure that 
the last operation was completed 
satisfactorily by issuing a CHECK macro 
before issuing a NOTE. The record 
identification is put in register 1. This 
identificaticn is a 3-byte block count. 
The user is responsible for saving the 
block count to be used with a POINT macro 
at some later time. 


record previously identified by a NOTE 
macro. 


Entry: From a POINTR macro expansion to the 
label IJFWPNTR. 
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Exit: To the problem progran. 


the file to read a record previously 
identified by a NOTE macro. The block 
count previously supplied by the NOTE macro 
is used by the POINTR macro to position the 
tape to the specified record on the file. 


The block count is updated in the DTF 
and ccmpared with a count that was saved by 
the user from a previous NOTE macro. Then, 
the tape is spaced backward or forward, and 
the block ccunt in the DIF is 
correspondingly decreased or increased 
until it is equal to the NOTE block count. 


When the equal condition is sensed, and 
if read backward is not specified in the 
DTF, the tape is backspaced one block. The 
tape is now rfositicned to read the desired 
record. 


Objectives To pcesition the tape at the 


beginning of the file for the next READ or 
WRITE macro. 


Entry: From a FCINTS macro expansion to the 


label IJFWPNTS. 
Exits To the prceklem progran. 


Method: The POINTS macro instruction 
repositions a tape file to the beginning of 
the file. When a POINTS is issued to the 
tape file, the forward space file switch, 
bit 7 of byte 21 in the DIF, is set on and 
the tape is rewcund. If header labels are 
present, they are bypassed when the next 
READ, WRITE, POINTR, or PCINTW macro is 
issued. 


record following a record identified by a 
previcus NOTE macro. 


file to write a record after the record 
identified by a NOTE macro. The block 
count supplied ty a previous NOTE macro is 
used by the POINTW to position the tape to 
write a record immediately after the one 
identified by the NOTE macro. 


The block count is updated in the DTF 
and ccmpared with a ccunt that was saved by 
the user from a previous NOTE macro. Then 
the tape is spaced backward or forward, and 
the blcck ccunt in the DTF is 
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correspondingly decreased or increased 
until it is equal to the NOTE block count. 
The tape is then in position to WRITE the 
desired record. 


ic 
4 
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iw 
Joe 
iro 
ic 


I Macro, Charts DG-DH 


ves To write a logical record ona 
ic tape file. 


Entry: From a PUT macro expansion to the 


IJFFPUT for files containing fixed length 
records in EBCDIC. | 


IJFXPUT for files containing fixed length 
records in ASCII. 


IJFUPUT for files containing undefined 
records in EERCDIC. 


IJFNPUT for files containing undefined 
records in ASCII. 


IJFVPUT for files containing variable 
length records in EBCDIC. 


IJFSPUT for files containing spanned 
records in EBCDIC. 


IJFRPUT for files containing variable 
length records in ASCII. 


Exit: To the problem program. 


Method: The PUT routine writes a record in 
the next sequential location on the file. 
If a work area is specified, the FUT 
routine moves the contents of the work area 
to the I/O area. For blocked (fixed, 
spanned, and variable length) records, if 
the record fills the I/O area, the PUT 
routine writes the contents of the I/O area 
on the file. If unblocked or undefined 
records are specified, each PUT causes a 
record to be written on the file. If no 
work area is specified, the user must build 
the physical record in the I/O area. 


The PUT routine goes first to a work 
area subroutine to determine if a work area 
has been specified (for undefined records, 
the record size is obtained prior to this 
action). If a work area is specified, the 
record is moved from the work area to the 
I/O area and any required blocking is. 
performed. If ASCII is specified, the 
output is also translated to ASCII. The 
PUT reoutine next goes to a read/write 
subroutine which checks for first time, two 
I/O areas, checkpoint records, etc., and 
performs the required I/O operation. The 
address of the next available I/O area is 
then loaded into the user's IOREG and the 
PUT routine returns control to the problem 
progran. 


If ERREXT is specified, additional 
errors are returned to the problem progran, 


and greater flexibility is allowed the user 
in attempting to continue processing. 


MIMCD: READ Macro, Work Files, Chart DJ 
Objective: To read a physical record from 
tape. 

Entry: From a READ macro expansion 
ITJFWREAD. 


Exit: To the problem program. 


Method: The REAL macro allows the user to 
access data on an input work file. This 
Macre requires the user tc specify the area 
the record is read into, and also allows 
the user to read only a portion of the 
record if he desires. The READ macro 
allows the user to read his records forward 
or backward. Hcwever, only one direction 
of reading is allowed for a particular 
file. Deblocking of blocked records is not 
performed by the READ macro. 


The READ macrce routine branches to the 
Read/Write Common Subroutine to test for 
record format and length and to set up the 
proper controls. This routine also 
determines if the entire physical record is 
to be read for undefined records. If not, 
only a portion of the record is read. WLR 
checkirg is not performed. 


Before returning to the READ macro 
routine, a check of bit 7 of byte 21 in the 
DTF is made to determine if a POINTS macro 
was issued kefore the REAL. If the bit is 
on, indicating the POINTS was issued, the 
tape is at lcadfoint. It is, therefore, 
necessary to execute a forward space file 
operaticn to bypass any labels and position 
the tape to the first data record. When 
this operation is complete, control returns 
to the READ macre routine. 


The READ macrce routine issues an EXCP to 


start a read operation and returns to the 
problem program. 


ve: Te skip the remaining records in 


Entry: From a RELSE macro expansion to the 


IJFFREL for files containing fixed length 
records in EBCDIC. 


IJFXREL for files containing fixed length 
records in ASCII. : 


IJFVREL for files containing variable 
length records in EBCDIC. 


IJFSREL for files containing spanned 
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records in ERCDIC. 


IJFRREL for files containing variable 
length records in ASCII. 


Exit: To the problem program. 


Method: This routine causes the remaining 
records in the input block to be bypassed. 
Conditions are set up that cause the next 
GET instructicn for this file to read in a 
new physical record from the file. The GFT 
instruction makes the first logical record 
of the new block available to the user. 


The RELSE routine sets the end-of-block 
pointer to 0, and returns control to the 
problem program. . 


The RELSE macro can only be issued to an 
input file. | 


Lf -it- is not. full. 


Entry: From a TRUNC macro expansion to the 
label: 


IJFFTRU for files containing fixed length 
records in EBCDIC. 


LJFXTRU for files containing fixed length 
records in ASCII. 


IJFVTRU for files containing variable 
length records in EBCDIC. 


IJFSTRU for Files containing spanned 
records in EEFCDIC. 


IJFRTRU for files containing variable 
length records in ASCII. 


Exit: To the problem progran. 


Method: This routine causes the current 
block to be considered full, and then 
writes it on the file. It sets up 
conditions that cause the next PUT macro 
instructicn to begin placing records at the 
beginning of a new block. 


The TRUNC macro can only be issued to a 
blocked output file. 


The routine gets the current blocksize, 
and checks to determine if it is 0. If 
yes, control returns to the problem 
program. If no, a new blocksize is set in 
the CCW, and control branches to the 
Read/Write subroutine to write the 
truncated record. Then the CCW is 
restored, and control returns to the 
problem program. 
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Entry: From a WRITE macro expansion to 
IJFWRIT. 


a record to ke written from an indicated 
area to the cutrfut file. This routine 
requires the user to specify the area from 
which the record is written, and allows the 
user to specify the actual number of bytes 
to be written. If the length is not 
specified, the user specifies RECFORM=UNDEF 
in the (TF. Blocking of records is not 
provided for in the WRITE macro 
instruction. If blocking is desired, it is 
the user's responsibility to block the 
records before issuing a WRITE. 


The WRITE macro rcutine branches to the 
Workarea Subroutine to determine the record 
length and set up the proper controls. 
Before returning control, the subroutine 
checks bit 7 of byte 21 in the DTF to 
determine if a FCINTS macro was issued 
before the WRITF. If the bit is on, 
indicating that POINTS was issued, the tape 
is at lcadpcint. It is, therefore, 
necessary to execute a forward space file 
operaticn tc bypass any labels and position 
the tape to write the first data record. 
When this operation is complete, control is 
returned to the WRITE macro routine. 


The WRITE macro routine issues an EXCP 
to start a write operation and returns to 
the problem program. 
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Charts DN and DV 


OQbjective;: To bypass checkpoint records 


within an input EBCDIC tape data file. 


Entry: From the Read/Write subroutine when 
CHKPTREC=YES is specified in the DTFMT 
entry and there are checkpoint records in 


the file. 


routine checks the first 12 bytes of each 
record in the input area for /// CHKPT //, 
indicating a checkpoint header record has 
been read. For read backwards, the 
checkpoint header record is located in the 
20 lower-order kytes of the input area. 


The methcd fcr bypassing checkpoint 
records is: 


Extract bytes 14-15 of the checkpoint 


header label (or trailer label if reading 
backwards), pack the field (convert to 
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binary) and forward space (or backspace) 
that number of records. 


INITIALIZATION AND TERMINATION 


Magnetic tape files processed by logical 
IocsS must conform to certain standards. 
These standards concern labels, placement. 
of tapemarks, and the grouping (blocking) 
of tape records. 


Tape files, with or without labels, can 
be processed by logical IocS. It is the 
function of the open and close logical 
transients to process (check or create) the 
labels as required. Refer to VSE/Advanced 
Functions Tape Labels for the organization 
of tape file labels. 


When standard labels are specified for a 
tape file, logical IOCS processes only the 
standard volume label, VOI1, and the 
standard file labels, HDR1, EOF1, and EOV1. 
(Refer to VSE/Advanced Functions Tape 
Labels for the format of these labels.) 
User labels and nonstandard labels must be 
processed by the user. 


Volume 1 of this set of four LICCS 
Manuals contains a detailed discussion on 
the use of tare labels. 


Tape Open, Close and EOF/EOV Routines, 


Charts 01 and 02 


Notes Tape files are identified by a single 
job control statement, // TLBL. Where 
reference is made to the // TLBL job 
control statement in the text and 
flowcharts in this manual, the reference 
applies to the collective // VOL and 

// TPLAB statements as well. Also, the 
decision block in some of the flowcharts 
containing the question "TLBL INFORMATION 
IN DTF" determines if the DIF table 
contains tape label information updated by 
the DTFMT macro. 


S$SBOMTO Open Input Standard Labels, 


Forward, Charts EA-EB 


Objectives To open, in a forward direction, 
input tape files with standard labels. 


Entry: 


e From the Open Monitor, $$BOPEN1. 


From $$BCMTO2. 


e From a message writer phase or $$BOMLTA 
to the label RELOCATE. 


Inputs From the label information stored 
in the label information area by Job 
Control (// TLBL card image) and from 
the tape currently being processed. 


1. To $$BOMTO7, phase 2 of Open Input 
Standard Latels, Forward, to store the 
updated TLBL information. 


2. To $$BCEOV1 if end-cf-volume reached. 


file in a fcrward direction. It reads the 
standard volume label (VOL1) and compares 
the vclume serial number contained in the 
label to the volume serial number obtained 
from SYSRES. The routine then reads the 
standard tape file header label (HDR1) and 
compares it tc corresponding entries 
specified in the label information (// TLBL 
card). 


All differences are noted by messages to 
the operator. If user labels are detected 
and the address of the user's label routine 
(LABADDR) is specified in the DTF table for 
the file, an exit is made to that routine 
to read and process the user's labels. 
After the tapemark signifying the end of 
the label area is read, $$BOMTO7 is 
fetched. 


Upon entry into the $$BOMT01 open phase, 
a test is made to determine if the phase 
was entered after issuing a message or 
after performing a tape rewind operation. 
If this is the case, a branch is made to 
the appropriate return point. This address 
is represented in the flcwcharts by the 
exit(s) from the decision block following 
the message Elcck. 


The [TF table should contain tape label 
information. A test is made for the 
presence of this label information. If the 
DTF contains such information, it must then 
be used to update the label information 
area. 


Next, the $$BOM101 open phase reads the 
tape for a standard volume label, VOL1. If 
this lakel is nct found, error message 
4111A is printed. If the VOL1 label is 
found, the volume serial number is saved in 
VOLSAVE. Then the DTF table is checked to 
determine if the file is already open. If 
the ofen.indicator is on, byte 36 of the 
DTF table is exarined to determine if the 
file is defined for processing by physical 
IOCS (DIFPH). If the file is so defined, 
the volume sequence number entry in the // 
TLBL card image is incremented by 1 unless 
the entry is Flank. 


If the file is not already open, the 
volume serial rumber in the tape VOL1 label 
is compared to the file serial number 
(EBCDIC) or set identifier (ASCII) in the 
// TLBL card image. If the numbers are not 
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the same, error message 4112A is printed. 
If the response to this message is IGNORE, 
the // TLBL file serial number (EBCDIC) or 
set identifier (ASCII) is made equal to the 
volume serial number. If access control is 
present in the system, the operator is not 
given the option to ignore the message 
because IGNORE is an invalid response. If 
the response is NEWTAP, indicating that the 
operator has mounted a new tape, checking 
of the standard volume label is repeated. 
If the response is BYPASS, or if the serial 
numbers are equal, the next record on the 
tape is read. 


Any volume labels written after the VOL1 
label are bypassed. When a standard tape 
file label, HDR1, is read, the following 
label entries are checked against the > 
corresponding entries in the // TLBL card 
image as specified: file serial number 
(EBCDIC) or set identifier (ASCII), volume 
sequence number (EBCDIC) or file section 
number (ASCII), file sequence number, 
generation number, version number, creation 
date, and file identifier (FILEID). Any 
discrepancies are noted by error messages. 


After the standard file label (HDR1) is 
read and checking is complete, all 
additional file labels are bypassed and the 
phase proceeds to check for user labels. 

If the address of the user's label routine 
is specified in the DTF table (LABADDR), 
any user labels on the tape are checked. 
If the user's label routine address is not 
specified, checking of user labels is 
bypassed. 


The reading of a tapemark indicates the 
end of the label area on the tape. 
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Objective: To open, in a backward 
direction, input tape files with standard 
labels. 


Entry: From the Open Monitor, $$BOPEN1, or 
from a message writer phase or $$BOMLTA to 
the label RELOCATE. 


Inputs Input is from the label information 
area (// TLBL card image) and the tape 
currently being processed. 


Exits 


1. To the Open Monitor, $$BOPEN, if an 
open statement was issued. : 


2- To CANCEL. 
Method: This routine opens input tape files 
in a backward direction by reading the 


trailer labels instead of header labels. 


Upon entry into the $$BOMTO2 open phase, 
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a test is made to determine if the phase 
was entered after issuing a message or 
after performing a tape rewind operation. 
If this is the case, a branch is made to 
the appropriate return point. This address 
is represented in the flowchart by the 
exit(s) from the decision block following 
the message bicck. 


The €$BOMTO2 routine then checks for a 
tapemark to determine that the tape is 
positioned correctly. If a tapemark is not 
read, error message 4117D is printed. 

After reading the tapemark, the routine 
reads the trailer labels. 


If user trailer labels are present and 
the address of the user's label routine, 
LABADDR, is specified in the DTF table, the 
routine exits tc the user's label routine 
to process the user trailer labels. If 
LABADER is not peer ered, the user trailer 
labels are Eypassed. 


After processing the user labels, if 
required, the $#BOMTO2 routine reads the 
file trailer labels until either a standard 
end-of-file or end-of-volume, EOF1 or EOV1, 
label is encountered. All intervening file 
trailer labels are ignored. When EOF1 or 
EOV1 label is read, the file serial number 
from the lakel is saved in VOLSAVE. Only 
the file identifier (FILEID) portion of the 
label is checked against its corresponding 
entry in the // TLBL card image in main 
storage. 


Note: If the FILEID in the // TLBL card 
image is blank, no checking of the standard 


file trailer laktel is performed. 


If the FILFIC numbers are not equal, 
errcr message 4118D(I) is printed. 


After the file trailer label is 
processed, the rceutine reads the tapemark 
that precedes the trailer label area, posts 
the file open in the DIF table and returns 
to $$BOFEN. 


A successful cpen positions the tape at 
the IRG that follows the last data record. 


Open Output Standard Labels 


Objective: To cren, in a forward direction, 
output tape files with standard labels. 


Entry: From the Cpen Monitor, $$BOPEN1, or 


from a message writer phase, or from 
SS$BOMLTA. 


Inputs From the label information area 


(// TLBI card image) and from the tape 
currently being precessed. 


1. To the seccnd phase of Open Output 
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Standard Labels, Forward, $$BOMTO4. 


2- To the Standard Volume Label Rewriter, 
$$BONVOL. 


Method: The $$BOMT03 routine checks and 


builds labels for output tape files. The 
routine: 


1. Checks the information in the // TLBL 
card image and inserts the proper data 
when blank entries are encountered. 


2. Reads the standard volume label from 
the tape and compares it to the 
information in the // TLBL card image. 


3. Determines the availability of the tape 
from the standard file label. 


4. Writes new standard file and user 
labels as required. 


When the required labels have been written 
on the tape, a tapemark is written and the 
file is posted open in the DTF table. At 
this point, the tape is positioned at the 
beginning of the data area. 


Upon entry into the $$BOMT03 phase, a 
check is made to determine if the phase was 
entered after issuing a message or after 
performing a tape rewind operation. If 
this is the case, a branch is made to the 
appropriate return point. This address is 
represented in the flowcharts by the 
exit(s) from the decision block following a 
message block. 


A test is made to determine if tape 
label information is contained in the DTF 
table. If so, it is necessary to update 
the //Y TLBL card image in main storage with 
informaticn ccntained in the DTF table. 


This routine then checks the following 
fields of the // TLBL card image and 
inserts default values, as necessary, when 
blank entries are encountered: 


e Volume sequence number (EBCDIC) or file 
section number (ASCII) (default=0001). 


e File sequence number (default=0001). 
e Generation number (default=0001). 


e Version number (default=01 for BECDAC 
and 00 for ANSI Labels). 


e Expiration date (default retention 
period = 0). 


® Creation date (today's date). 


The block count in the DTF table is set to 
zero and a check is made for specification 
of no rewind (NORWD). If NORWD is not 
specified, the tape is rewound to load 
point. If NORWD is is specified and the 
tape is not at load point, a branch is made 


/ 


to location BACKSPC2, see Chart LH. If the 
tape is at load point, a check is made on 
the dersity cf the tape mcunted and 
assigned. After the density check, the 
tape is read in search of a standard volume 
label, VOL1. 


If a VOL1 lakel is not found, error 
message 4110A is printed. If the operator 
response is a volume serial number, a new 
VOL1 lakel, fcllicwed by a dummy record to 
prevent possikfle detection of a noise 
record, is written. A response of NEWTAP 
indicates that the operator has mounted a 
new tape and the check of the VOL1 label is 
repeated. 


If a standard volume label is found, the 
volume serial rumber is saved in VOLSAVE. 
If the file is not already posted open in 
the DTF table, the file serial number in 
the // TLBL card image is checked. If this 
field is blank, the vclume serial number 
from the VOL1 label is inserted into the 
card image. The volume serial number and 
the // TLBL card file serial number 
(EBCDIC) or set identifier (ASCII) are 
compared. Any discrepancy is noted by 
error message 4112A. If the serial numbers 
are equal, the next record is read. If any 
additional volume labels are _Tead, they are 
bypassed. 


When the stardard file label, HDR1, is 
read, the expiration date is checked to 
determine the availability of the tape. If 
the tape is available (that is, if the 
retenticn period has expired or the 
expiration date has been reached) or if no 
HDR1. label was found, the tape is 
backspraced and $$BOMTO4 is fetched. 


If the tape is not at load point, the 
routine at EFACKSFC2 is entered to kackspace 
two records and read one record ina 
forward direction. This sequence of 
Operaticns is executed in an attempt to 
locate and retrieve information from the 
EOF1 label of the preceding file. The file 
serial number (EBCDIC) or set identifier 
(ASCII), volume sequence number (EBCDIC) or 
file section rumber (ASCII), and the file 
sequence number +1 from the EOF1 label are 
inserted into the // TLBL card image and an 
exit is made frcem this phase to $$BOMTO4 
where a new header label is built and 
written for the file being opened. If no 
preceding file labels are found, the tape 
is rewound and unloaded and error message 
4120I is printed. 


$$BOMTOU: Open Qutput Standard Labels, 


Forward {Ehass 2), Chart EF 


output tape data files with standard 
labels. 
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Entry: From the first phase of the Open 
Output Standard Labels, $fBOMTO3. 


Input: From the DTF table and the user's 
label routine. 


1. To the Open Monitor, $$BOPEN, if the 
file is not already posted open. 


2. To the logical IOCS module if the file 
is already posted open. 


Method: If phase $$BOMTO4 is reentered from 
a message writer phase, the return bit in 
byte 89 of the communications region is 
reset. Control is then passed to the 
address in register 14. 


When phase $$BOMTO4 is entered normally, 
a new standard file label is built and 
written on the tape. 


To build the new standard file label, 
information is obtained from the // TLBL 
card image. If the file identifier 
(FILEID) field of the // TLBL card is blank 
or zero, the file name is obtained from the 
DTF table and inserted into the card image. 
The information from the // TLBL card image 
used to build the label includes: 


e File identifier. 


e File serial number (EBCDIC) or set 
identifier (ASCII). 


e Volume sequence number (EBCDIC) or file 
section number (ASCII). 


e File sequence number. 
e Generation number. 

e Version number. 

e cCreation date. 

e Expiration date. 

e Block count. 


A test is then made to determine the 
version level of the DTF table. If the 
table was generated by a Version 2.1 or 
Version 3 DIFMT macro, the file serial 
number (EBCDIC) or set identifier (ASCII), 
volume sequence number (EECDIC) or file 
section number (ASCII), and file sequence 
humbers from the // TLBL card image (bytes 
26 through 39) are inserted into the 
corresponding entries of the DIF table 
(bytes 42 through 55) - Otherwise, the new 
// TLBL card image is written back onto the 
label information area. 


The $$BOMTO4Y phase then exits to the 
user's label routine if specified, to 
process and write up to eight user labels 
for an EBCDIC file and an unlimited number 
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of user labels fcr an ASCII file, 
user's label routine is complete, a 
tapemark is written to indicate the end of 
the tape label area and the open indicator 
in the PTF table is checked. If the open 
indicatcr is already on, control returns to 
the logical IOCS module. If the open 
indicator is nct on, it is turned on and 
$$BOPEN is fetched. 


When the fee 


28 
A successful cpen posts the file open in 
the DIF table, and positions the tape at 
the IRG preceding the area of the first 
data record. 


unlabeled files, bcth input and output, in 
either a forward or a backward direction. 


Entry: From the Open Monitor, $$BOPEN1, 
$$BOMLTA, or from $$BCMTO2. 


From the tape being processed. 


1. To the Open Monitor, $$ROPEN, after the 
file is posted open in the DIF table. 


2. To the logical IOCS module if the file 
is already posted open in the DTF 
table (multireel file). 


Methods: 
9-track tape and sets the correct mode. 
nonstandard labels are specified, an exit 
is made to the user label address. After 
the return from the user, a tapemark may or 
may not be written for an output file, 
according to the ofticn specified in the 
DTF. For input files, a check is made to 
determine if the tapemark was read by the 
uSEr. 


This reutine checks for 7-track or 
If 


For unlabeled files, tests for options 
Such as tapemark, rewind, etc., are made to 
determine the various factors stated in the 
DTF parameters and appropriate action is 
taken. If the file has been previously 
opened (multireel file), control returns to 
logical I0ocS. If the file has not been 
opened, the routine opens the file and 
calls the Open Monitcr. 


Upon entry tc the $$BOMTO0O5 phase, a test 
is made to determine if the phase was 
entered after issuing a message or after a 
tape rewind operation. If this is the 
case, a branch is made to the appropriate 
return point. This address is represented 
in the flowcharts by the exit(s) from the 
decision block following the message block. 


The LDTF table is examined to determine 
the directicn cf the file to be opened and 
the appropriate action is taken. 
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For nonstandard labeled input files 
opened in a forward direction, the 
labels are processed by the user if the 
address of the user's label routine is 
specified in the DTF table. Detection 
of a tapemark indicates the end of the 
label area, and the file is posted 
open. 


For unlabeled input files opened ina 
forward direction, the tape is read in 
search of a tapemark. If a tapemark is 
net read, the tape is backspaced one 
record to return it to its original 
position. In either case, the file is 
posted open in the DTF table. 


For nonstandard labeled output files 
opened in a forward direction, the 
labels are processed by the user if 
address of the user's label routine 
specified in the DTF table. If the 
tapemark cption is specified in the DTF 
table, a tapemark is written after the 
last label. The file is then posted 
open. 


the 
is 


For unlabeled output files opened ina 
forward direction (and input files if 
access control is present in the 
system), the tape is read to determine 
if the tape contains any labels. If a 
label is detected, error message 

4125D (I) is printed and the operator 
can elect either to ignore the label or 
tc mount a new tape. If access control 
is present in the system, the operator 
is not given the option to ignore the 
label because IGNORE is an invalid 
response. If the operator chooses to 
ignore the label and the tape is a 
9-track tape, it is backspaced, 
written, and again backspaced. This 
sets the mode and erases the label. If 
the tapemark option is specified in the 
DTF table, a tapemark is written. The 
file is then posted open in the DTF 
table. 


For nonstandard labeled input files 
opened ina backward direction, the 
labels are processed by the user if the 
user's label routine address is 
specified in the DTF table and the file 
is posted open in the DTF table. 


For unlabeled input files opened in a 
backward direction, the only check is 
for the existence of a tapemark. This 
test positions the tape properly. The 
file is then posted open in the DTF 
table. 


For nonstandard labeled output files 
opened in a backward direction, the 
Same action as in item 5 occurs. 


For unlabeled output files opened in a 
backward direction, the same action as 
in item 6 occurs. 


If access control is present in the 


system, any attempt to open an 
unlabeled tape file with REWIND=NO 
specified in the DTF results in the 
message 4125I being issued and the job 
is canceled. 


iles, Magnetic Tape, 


<< ae anp an sa se a eo 
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Objective: To open a tape work file. 


S$$BOMLTA to the label TRANSENT. 


Input: From the tape being processed. 


1. To the Open Monitor, $$BOPEN. 


2- To the Standard Volume Label Rewriter, 
$$RCNVOL. 


or unlabeled, input or output, tape work 
files. 


If this phase is reentered after issuing 
a message or a tape rewind operation, a 
branch is made to the appropriate return 
point. This address is represented in the 
flowcharts by the exit(s) from the decision 
block that follows a message block. 


If this phase was entered from the Open 
Monitcr the tape is rewound to load point, 
unless the NORWD opticn is specified in the 
DTF table, and a read command issued. 


If a tapemark is read, the file is 
immediately considered open and control is 
returned to $$BOPEN. 


If a standard volume label (VOL1) is not 
read, blanks are inserted into the SDR 
record, the tape is backspaced, anda 
tapemark is written. The file is then 
considered open and control is returned to 
S$$BOPEN. 


If a standard volume label is read, the 
volume serial rumber is saved in location 
VOLSAVE. Additional read commands are 
executed to bypass any additional volume 
labels. If a standard file label (HDR1) is 
read that is neither blank nor all zeros, 
the expiration date is checked to determine 
the availability of the tape. If the tape 
is available or if no HDR1 label is read, 
or if this is the first time the file is 
opened as an output file, a check is made 
to see if density support is needed. If it 
is, $$BONVOL (Standard Volume Label 
Rewriter) is fetched. Otherwise, the file 
is considered ofen, and control returns to 
S$$BCEEN. 
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Objective: To open, in a forward direction, 
input t 


s From phase 1 of Open Input Standard 
s, $$BOMTO1. 


1. To $$BOMTES to check for TES and, if 
supported, to post status. 


2. To the Open Monitor, $$BOPEN. | 


3. To the user. 


Method; If the DIF table contains TLBL 
information, the table is updated from the 
new // TLBL card image. If the DTF table 
does not contain TLBL information, the new 
// TLBL card image is stored back in the 
label information area. The file is posted 
open in the DIF table and the $$BOMTO7 
phase is terminated. 
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Objective: To open SYSRDR, SYSIPT, SYSPCH, 


and SYSLST when these logical units are 
assigned to tape units. 


Entries: 


1. From Job Control to open SYSRDR, 
SYSIPT, SYSPCH, and SYSLST when these 
logical units are assigned to tape 
units. 


2. From the Linkage Editer to open SYS001 
if SYSO001 is a tape. 


3. From Phase $$BCMTO7 to open an 
alternate assignment. 


1. To the problem program via SVC 11. 


2. To the Standard Volume Label Rewriter, 
$S$BONVOL. 


Method: This routine opens SYSRDR, SYSIPT, 
SYSPCH, and SYSLST when these logical units 
are assigned to tape units. Three 
attempts, uSing the following assumptions, 
are made to read the first record: 


1. A label in standard mode and read first 
record; no retries. 


2. Unlabeled file and read first record in 
user mode; no retries. | : 


Magnetic Tape Files 93 


Licensed Material - Property of IBM 


3. Read first record in eters mode ; 


allow retries. 
This is a table of actions taken by the 


routine depending upon the result of 
reading the first record: 


Ce nae EY EDI CAD OED OD ORIEELD EO TES 








jResult jInput File| Output File 1 
(= ee = | 
|Unreadable|Rewind J|Error ] 
| i | | 
j|Unlakeled |Rewind | Rewind | 
{ | | l 
{Standard |Skif {Skip volume labels, | 
}Label Set |Labels, jwrite HDR1 and | 
; jand {tapemark. | 
l {tapemark. | | 
i sini Sins ss Seen cs Ss sine iis iu st cs “ol Si ui onic Srnec mers ‘Ge ast emi en mm Sas em eli ie cael 


For a 9-track dual density output tape, a 
comparison is made between the 
user-specified density (800, 1600, or 6250 
BPI) and the VOL1 density of the mounted 
tape. If a discrepancy is found, and if 
the tape is at lcad point, the volume 
label(s) is rewritten according to the 
user-specified density. 


or SYSOUT is 
Job Control Open 


Note: If SYSLST, SYSPCH, 
assigned to a tape file, 
preserves the vclume label; and if the 
header label is expired, Job Control writes 
a new header lakel with the format HDR1 


followed by 76 tinary zeros. 


Objective: To initialize for end-of-file/ 
end-of-volume (EFOF/EOV) routines, and to 
fetch the preper EOF/EOV routine. This 
phase is used for tape files only. 


Entries: 

From the problem program when an 
end-of-file or end-cf-volume condition 
is sensed (SEOV). Forced EOV (FEOV 
macro) alsc calls this routine. 


From $$BOM1I01 when end-of-volume during 
open multifile multi-volume. 


Exit: 


Te the proper EOCF/ECV routine. 
Method: This phase determines the type and 
format of the file from the DTF table, and 
selects the name of the required tape EOF 
or FOV phase. It then reads label 
information for the file from the label 
area into the open table at the end of the 
logical transient area. This information 
is passed to the required tape EOF/EOV 
phase fetched by the EOF/EOV Monitor. 
file open bit in the PUBR2 table is then 
turned cff. 


The 
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Objective: Tc close an input tape file. 
reading in a forward direction. 


Entry: From $$BCEOV1 (the EOF/EOV Monitor) 
and $$BOMLTA to the label TRANSENT. 


Inputs From the label information area 
(// TLBL card image) and from the tape 
currently being processed. 


Exits: 

1. To the user's EOF routine if specified 
in the DTF table. 

2. To phase $$BCMT02 for an EOV condition 
to switch to an alternate tape. 

3. To CANCEL if an error condition occurs. 


Method: This routine is called by the 
EOF/EOV Monitor. The routine reads and 
processes the standard trailer label. An 
exit and return are provided for processing 
user labels if LABADDR is specified. It 
checks to determine if an EOF or EOV 
condition is present. If an EOV condition 
exists, $$BCMTO2 (alternate switching 
routine) is called. If an EOF condition 
exists, control passes to the user's EOF 
routine by branching to the user's EOFADDR. 


Upon entry into the $$BCMTO1 phase, a 
test determines if the phase was entered 
after issuing a message or after performing 
a tape rewind operation. If this is the 
case, a branch is made to the appropriate 
return point. This address is represented, 
in the flowcharts, by the exit(s) from the 
decision block following a message block. 


A check of the DTF table (byte 36) then 
determines if the file is being closed as a 
result of an FEOV (Force-End-of-Volume) 
macro being issued. If bit 3 of byte 36 is 
on, an FEOV macro was issued. The tape is 
rewound, unless the NORWD option is 
specified in the DTF. No label checkin 
performed. Phase $$BCMTO2 is then fetched 
to determine if an alternate tape is 
available. 


Tf an FEOV macro was not issued, the 
$$BCMTO1 phase reads the tape in search of 
standard trailer labels if such are. 
specified in the DTF table. Only the block 
count contained in these labels is checked 
against the block count contained in the 
DTF table. Any discrepancy is noted by 
error message 4131D. User labels are 
bypassed unless the user furnishes the name 
of his label processing routine. This 
phase checks DTF byte 16, bit 3, to | 
determine if American National Standard 
COBOL has been specified. If it has been 
specified, a first time switch is set 
before yielding control to the user's label 
processing routine. The tape is rewound, 


a— 


unless the NORWD option is specified, anda 
check determines the type of standard 
trailer label read (that is, EOV1 or EOF1). 
An EFOF1 label sets the ECF/EOV switch, bit 
4 of byte 36 in the DTF table. If the 
Switch is turned on, the file is posted 
closed in the CIF table and an exit is made 
to user's end-cf-file address, EOFADDR. If 
the switch is off, indicating that an 
end-of-volume ccndition exists, a test 
determines if the file is a COBOL file that 
must be rewound and unloaded. If so, the 
rewind/unload operation is executed. Phase 
S$$BCMTO2 is fetched to determine if an 
alternate tare is available. 


If nonstandard labels are specified, 
exit is made to the user's label routine 
(LABALLCR) to process these labels. If no 
labels are specified or if the user 
specifies the end of file in the user label 
routine, exit is made to the user's 
end-of-file routine, EOFADDR. If the user 
specifies end of volume, phase $$BCMTO2 is 
fetched to determine the availability of an 
alternate tape. 


If the user specifies neither end of 
volume nor end of file, message 4130A is 
printed and the cperator can specify either 
EOF or EOV. If the operator's reply is 
EOF, an exit is made to the user's 
end-cf-file routine, EOFADDR. If the 
Operator's reply is EOV, a test determines 
if the file is a COBOL file that must be 
rewound and unloaded. If so, the 
rewind/unload operation is executed. Phase 
$$BCMTO1 then fetches phase $$BCMTO2 to 
determine the availability of an alternate 
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is sensed. 


Entry: From $$BCMTO1, 
S$BCMLTA. 


SS$ECMTOU, or 


file and from the label information area 
(// TILBL card image). 


Exits: To $$BOMT01, $$BOMI0S, $$BOPEN, or 
CANCEL. 


Switches from one 
an alternate drive is 
is sensed in the 


Method: This routine 


drive to another, if 
specified and if EOV 
trailer label of the tape file previously 
processed. It switches either input or 
output tape files and calls in the 
appropriate open phase to open the 
alternate file. If EFOV is sensed and if no 
alternate drive is specified, a message is 
issued. The user can cancel the job or 
mount a new tape on the same drive and 
continue. | 
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If the $$ECMTO2 phase is reentered after 
issuing a message or after performing a 
tape rewind operation, a branch is made to 
the appropriate return point. This address 
is represented in the flowcharts by the 
exit(s) from the decision block following a 
message block. 


If the $$BCMTO2 phase was not entered 
from a message writer phase, the // TLBL 
card image in main storage must be updated 
with information contained in the DTF 
table. 


An SVC 22 is issued to seize the system; 
that is, to disable the multiprogramming 
operation. The address of the logical unit 
block (LUB) entry for the tape being close 
is obtained. From this entry, the 
addresses of the Physical Unit Block (PUB) 
entry and the first Job Information Block 
(JIB) entry, if any, are calculated. Any 
alternate assignment for the LUB is stored 
in the JIB table. After the alternate PUB 
is obtained and checked for availability, 
an SVC 22 is again issued to release the 
system, that is, to return to 
multiprogramming operation. 


Note: Further description of the SVC 22 and 
of the functions of the LUB, PUB, and JIB 


Diagnosis References Supervisor. 


If the file being closed (the file for 
which an alternate assignment has been 
found) is an output file, the address of 
the DTF table is saved and $$BOPEN is 
fetched. If the file is an input file with 
nonstandard labels, phase $$BOMTO05 is 
fetched to open the alternate assignment. 


If the file being closed is a standard 
labeled input file, the volume sequence 
number in the // TLBL card image in main 
storage is updated by 1. If the DIF table 
contains tape label information, it is also 


necessary to update the volume sequence 


number in the DTF table. If the DTF table 
does not contain tape label information, 
the updated // TLBL card image is written 
back onto the label informaticn area. [In 
either case, phase $$BOMT0O1 is fetched to 
open the alternate assignment. 


If no alternate assignment is available 
for the file being closed, message 4140A is 
printed. The operator can mount an 
alternate tape and give a NEWTAP response 
to the message. The phase then proceeds to 
reopen the file as if an alternate had been 
assigned. 


SS$BCMTI03:; Tape Close, EOF Input Backward, 
Chart FC 
Objective: To close an input tape file 


reading in a backward direction. 
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ey igade: (// TLBL card image) and from the 
tape being processed. 


1. Teo $$BCMTO8. 


2. 10 the user's end-of-file routine, 
EOFADDR. 


3. #%qTo cancel, if an error condition is 
encountered. 


header “labels ard rrocesses the labels as 
trailer labels. The block count is checked 
and the file is then ready to be closed by 
the user's end-cf-file routine. 


Upon entry into the $$PCMTO3 phase, a 
test determines if the phase was entered on 
a return from a message writer phase. If 
this is the case, a k-ranch is made to the 
address (in register 14) specified by the 
response received from the operator for the 
message printed. This address is 
represented in the flowchart by the exit(s) 
from the decisicn block that follows a 
message block. 


If the phase was nct reentered from a 
message writer phase, a check of the DTF 
table determines the type of labels 
specified. If the file is unlabeled, that 
is, if neither standard nor nonstandard 
labels are specified in the DTF table, the 
end-of-file indicator (bit 4 of byte 35) is 
turned on and the first time switch (bit 0 
of byte 21) is turned off in the DTF table. 
An exit is made to the user's end-of-file 
routine, EOFADIE. 


If nonstandard labels are specified in 
the DIF table, an exit is made to the 
user's label routine (LABADDR) to process 
the labels. After the user's label routine 
is complete, or if the address of the 
user's label routine is not specified, the 
$$BCMTO3 phase proceeds as described for 
unlabeled files. 


If standard labels are specified in the 
DTF takle, the tape is read in search of 
the standard file header label, HDR1. 


All user header labels are processed by 
the user's label routine (LABADDR), or they 
are bypassed if the address of the user's 
label routine is not specified. All file 
header labels preceding (in a backward 
direction) the standard HIR1 label are 
bypassed. When the HDR1 label is read, 
only the blcck ccunt contained in the label 
is checked against the block count 
cortained in the DIF table. Any 
discrepancy is noted by error message | 
4131D. After checking the block count, the 
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$$BCMTO3 phase proceeds as described for 
unlabeled files. 


Close, 


s Jape EQV Qutput Forward, 


Objective: To close an output tape file 


reading in a forward direction. 


Entry: From $#BCEOV1 (the EOF/EOV monitor), 
and $$BOMLTA to the label TRANSENT. 


Inputs; From the SYSRES label information 
area (// TLBL card image) and from the tape 
being processed. 


Exit: To phase $$BCMT02 to determine the 


availability of an alternate assignment. 


Method: The $$BCMTO4 phase closes the 
current active file by writing trailer 
labels and a tapemark for EBCDIC files and 
two tapemarks for ASCII files. It then 
fetches the alternate switching phase, 
$$BCMTO2, to cpen the next tape reel. 


Upon entry to the $$BCMTO4 phase, a 
check determines the type of labels 
specified in the DTF table. If standard 
labels are specified, the version level of 
the DIF table is verified by examining bit 
5 of byte 31 in the table. If the bit is 
on, the table was generated by a Version 
2.1 onward DTFMT macro. It is then 
necessary to modify the corresponding 
entries in the // TLBL card image in main 
storage with the file serial number 
(EBCDIC) or set identifier (ASCII), volume 
sequence number (EBCDIC) or file section 
number (ASCII), and file sequence numbers 
from the DITF table. After the // TLBL card 
image is modified with the DTF table 
information, the following card entries are 
checked and the proper default value 
inserted if any are blank: 


e File identification (FILEID) number 
(default = filename from the DTF table). 


e Generation number (default = 0001). 


e Version number (default = 01 for EBCDIC 
files and 00 for ASCII files). 


e Expiration date (default = retention 
period set to O days). 


Note; If expiration date is not absolute, 
the expiration date is calculated by adding 
the retention period to today's date. 


After updating the // TLBL card image or 
if bit 5 of byte 31 in the DTF table is not 
on (indicating that the DTF table does not 
contain tape label information and updating 
is bypassed) , the volume sequence number 
(EBCDIC) or file section number (ASCII) in 
the // TLBL card image is incremented by 1 
and the entire updated card image is used 


to build a standard EOV1 file label. 


The updated // TLBL card image is then 
written back onto the label information 
area. If the DIF table does contain tape 
label information, it is also updated with 
the infcrmaticn from the // TLBL card 
image. The EOV1 label is then written on 
the tape. 


An exit is made to the user's label 
routine (LABADDEF) to process and write user 
labels as specified. After the user's 
label routine is complete, a tapemark is 
written to indicate the end of the label 
area. The tape is rewound, rewound and 
unloaded, or left positioned, as specified 
by the user in the DIF table. The block 
count in the [TF table is reset to zero, 
and phase $$BCMTO2 is fetched to determine 
the availability of an alternate 
assignment. 


If nonstandard labels are specified in 
the DIF table, an exit is made to the 
user's label rcutine to process these 
labels and the £$BCMTO4 phase is concluded 
in the ranner just descriked. 
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file, readirg in the forward or backward 
directicn. 


Entry: From $$BCLOSE (the Close Monitor) to 
the label TRANSENT, or from $$BCMTO3. 
Inputs: From the label information area 

(// TLBL card image) and from the tape 
being processed. 


Exit: To the Clcse Monitor, S$$BCLOSE, or to 
SEBCMTOZ. . 


Method: The $$BCMTO5 phase closes standard, 
nonstandard, and unlabeled input or output 
files in either direction, fcrward or 
backward. The phase writes a standard EOF1 
trailer label on output files when standard 
labels are specified and/cr exits to the 
user's label routine to process user labels 
or nenstandard labels. Ne label checking 
is performed cn input files. 


Upon entry into the $$BCMTO5 phase, a 
check is made of the open indicator (bit 5 
of byte 36) in the DIF table. If the bit 
is not on (file not open), the block count 
in the [PTF table is set to zero, the first 
time switch (bit 0 of byte 21) in the DTF 
table is turned off, and the Close Monitor, 
S$$BCLOSE, is fetched. If the open 
indicator is on, a test determines if the 
file is input or output. 


If the file is an input file and EOF is 
not present, or American National Standard 
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COBOL is not specified in the DTF, the tape 
is rewound, rewound and unloaded, or left 
positioned as specified in the DTF table by 
the user. If the tape is unloaded, the 
PUB2 OPEN bit is reset. The file is then 
posted closed in the DIF table. The The 
$$BCMTO5. phase is concluded by resetting 
the DTF block count to zero and turning off 
the DIF first time switch. The Close 
Monitor, $$BCLOSE, is then fetched. If the 
file is a standard or nonstandard input 
file and American National Standard COBOL 
indicates that labels are processed at 
CLOSE time rather time rather than at EOF 
time, the COBOL label routine is called and 
the EOF label is processed. 


If the file is an output file, a 


tapemark is written to indicate the end of 


the data area. For nonstandard labeled 
output files, an exit is made to the user's 
label routine (LABADDR), if specified. 

When the user's label routine is complete, 
or if the address of the user's label 
routine is not specified for nonstandard 
labels, or if the file is unlabeled, a 
tapemark is written and the DTF table is 
checked for the NORWD option. If the NORWD 
option is not specified, the tape is either 
rewound, or, rewound and unloaded, as the 
user requires. If NORWD is specified, the 
tape is backspaced over the last tapemark 
written. The $$BCMTO5 phase is then . 
concluded by posting the file closed, 
resetting the DTF block count to zero, 
turning off the first time switch in the 
DTF, and fetching the Close Monitor, 
$$BCLOSE. 


For standard labeled output files, the 
version level of the DTF table must be 
determined by examination of bit 5 of byte 
31 in the DTF table. If this bit is on, 
the table was generated by a Version 2.1 
Onward DTFMT macro and contains information 
needed to update the // TIBL card image in 
main storage. 


The first step in the updating procedure 
inserts the file serial, volume sequence, 
and file sequence numbers from the DTF 
table into the corresponding entries of the 
// TLBL card image. The second step checks 
the fcllowing entries of the // TLEL card 
image and inserts the proper default value 
where blank entries are encountered: 


e File identification (FILEID) number 
(default = the DTF filename). 


® Generation number (default = 0001). 


e Version number (default = 01 for EBCDIC 
files and 00 for ASCII files). 


e Expiration date (default = set retention 
period to 0 days). 


Notes; If expiration date is not absolute, © 
the date is calculated by adding the 
retention period to today's date. 
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: If the DTF takle was not generated by a 
Version 2.1 onward DTFMT macro, no 
modification of the // TLBL card image is 
necessary and the update procedure is 
bypassed. 


A standard EFCF1 label is then built from 


the // TLBL card image information and 
written on the tape. If user labels are 
specified in the DTF table, an exit is made 
to the user's label routine (LABADDR) to 
process and write the user's labels. 


When all lakels have been written, two 
tapemarks are written to indicate the end 
of the label area and the last file on the 
reel. If the user has specified the NORWD 
option, the tape is backspaced over the 
last tapemark written. On the other hand, 
if the NORWD oftion is not specified, the 
tape is either rewound, or rewound and 
unloaded, as the user requires. The file 
is then posted closed, the block count in 
the DIF table reset to zero, the first time 
Switch in the DIF table turned off, and the 
Close Monitor, £$BCLOSE, fetched. 


$$BCMTO€: Close Tape Work Files, Chart FG 


Objective: To close a tape work file. 


Entry: From the Close Monitor, $$BCLOSE, or 


S$$BOMITA to the label WORKFILE. 


Input: From the DTF table. 


tape work file. It checks to determine if 
the last tape operation was a read or a 
write. If write, a tapemark is written, 
and the rewind cption is tested. If read, 
the rewind cpticn is tested. In either 
case, if NORWD was specified, the rewind 
function is bypassed. If NORWD was not 
specified, the tape is either rewound to 
the loadpoint, or, rewound and unloaded, as 
the user requires. If the tape is unloaded, 
the PUB2 OPEN Fit is reset. The block 
count in the DTF table is reset to zero, 
and the Close Mcritor is fetched. 


SSBCMTO7: Jape Cle 
for system Units, Chart FH 
Objective: To terminate and switch to an 
alternate drive when an ECV condition is 
encountered on an output tape file assigned 
to either SYSLST or SYSPCH. 


£nCL (the EOF/EOV Monitor), 
an output CE module, or $$#BOMLTA. 


a ae ee a GED cu GP ae eum oa —_—-_ 7 a cep ee ae oe 
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o the message writer phase, $$BMSGWR, 
f an alternate drive is not available. 


2- To the Job Control open phase, 
$$BICOPT, to open the alternate 
assignment. 


3. To the logical IOCS module if a unit 
exception occurs while writing a 
tapemark. . 


Method: This phase closes the active tape 
output file by writing a tapemark and by 
rewinding and unloading the tape. The 
alternate device is determined, if 
Specified, or an exit is made to the 
message writer phase, $$BMSGWR. If an 
alternate is not specified, or not 
available, the operator can mount a new 
tape on the same drive and continue 
processing. 


Upon entry into the $$BCMTO7, a test 
determines if the no rewind option is 
specified in job control switch byte JBCSW2 
(byte 58 in the communications region). If 
the option is not specified, a tapemark is 
written and a test determines if the unit 
exception bit is on in the CCB (bit 7 of 
byte 4). If the bit is not on, alternate 
Switching is not required. In this case, 
the tape is backspaced over the last 
tapemark written and control is returned to 
the logical IOCS module via an SVC 11. 


If the unit exception bit in the CCB is 
on, alternate switching is required. The 
tape is rewound and unloaded and an SVC 22 
is issued to seize the system (that is, to 
disable multiprogramming operation). 


Notes Additional information concerning SVC 
22 and the functions of the LUB, PUB, and 


Functions Diagnosis Reference: Supervisor. 


The address of the Logical Unit Block 
(LUB) entry is calculated and the pointer 
to the Physical Unit Block (PUB) entry is 
obtained from the first byte of the LUB 
entry. The address of the PUB assigned to 
the LUB is calculated, and the PUB mode 
byte (byte 5) is saved for later use. 


The second byte of the LUB entry 
contains a pointer to an entry in the Job 
Information Block (JIB) table if any JIBs 
are specified (chained) for the LUB. If 
there is an alternate PUB assigned, it is 
stored ina JIB. The first JIB in the 
chain is examined for a stored alternate 
PUB. If the JIB does not contain an 
alternate PUB, the next JIB in the chain is 
checked. When a stored alternate 
assignment is found, the pointer to that 
PUB is obtained from the JIB and inserted 
into the first byte of the LUB. Any 
remaining JIBs are scanned and updated. 
The standard PUB assignment is stored in 


the last JIE in the chain. 


After the alternate assignment is 
‘checked for availability, the mode byte 
saved from the standard PUB is inserted 
into the alternate PUB. The $$BCMTO7 phase 
concludes by issuing an SVC 22 to release 
the system (restore multiprogramming 
operation), and phase $$BJCOPT is fetched 
to open the alternate assignment. 


If an alternate assignment is not found, 
Or not available, initialization to print 
message 4121A takes place. 


S$S$BOMTOM and $$ROMTOW perform the same 
function. The two phases differ only in 
the messages printed and the calling 
phases. 


Objective: To print informational messages 
to the operator. For messages requiring 
operatcr response, exit to $$BOMSVA which 
in turn transfers control to the SVA 


message writer. 


1. Phase $$BCMTOM -- from tape open phase 
$$BOMTO2, S$EBOMTO3, FS$BOMTOY, SHBOMTOG. 


2. Phase $$BCMTOW -- from tape open phases 
S$$BOMTO2, S$EBOMTOZ3, SF$BOMTOU, F$BOMTOS, 
$$BCMTO6, SFBCMTO1, S$FBCMTO2, SH$BCMTO3, 
S$S$BCMTOYU, $F$BCMTOS, FFBCMTO6, $S$BCMTO7. 


Inputs: Fointer, received from an open 


routine, to indicate the desired message. 


1. To the calling open routine or to the 
Cpen Monitcr ($$BOPEN), if a legal 
response to the message is received, or 


2. To CANCEL if appropriate or if a 
console is not available. 


3. To $$BOMSVA for action messages. 


SSBOMTOM Messages: 


4118I FILE ID EFROR, REALTEK 
4120I TAPE FPOSITIONED WRONG 
4123I WRONG POSIIN, READBK 
4124IT TCO MANY UHL'S 

4151I HDR1 LBL INFORMATION 


4113I NO HDR1 LEL FOUND 
4151I HDR1 LEL INFORMATION 
4883I INVALID LCGICAL UNIT (see Note) 
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Note: Message 4883I is issued by any tape 
open/close phase in which this error is 
encountered. 


Methods The calling phase passes the 
following information to the message 
writers: 

e Register 0. The number of the desired 
message. 


e Register 12. The BYPASS reply return 
address. | 

e Register 13. 
address. 


The NEWTAP reply return 


e Register 14. The IGNORE, RETRY, VOLUME 
SERIAL NO. reply, or the information 
type message return address. 


e The last byte in the name of the phase 


returned to. 


Each message contained in the message 
writer phases consists of five sections: 


1. Option byte 1. Indicates the action to 
be taken after printing the message or 
the valid responses. 


Bit O = Automatic terminate 


(cancel). 

Bit 1 = IGNORE. 

Bit 2 = NEWTAP. 

Bit 3 = RETRY. 

Bit 4 = BYPASS. 

Bit 5 = Information message (no 
response required). 

Bit 6 = Volume serial number. 

Bit 7 = Print TLBL = XXXXxXxX. 


2. Displacement byte. Ccntains | 
displacement, in bytes, from the start 
of the label to the field(s) to be 
printed. 


3. Length byte. Contains the length, in 
bytes, of the label information to be 
printed. 


4. Message. 


5. Option byte 2.2 The following bits in 
Option byte 2 indicate: 


Bit 0 = IGNORE is an invalid reply if 
access control is present in 
the systen. 

Bit 1 = Change the message action 


indicator to information only 
with cancel if access control 
is present in the system. 


Bits 2 - 7 = Unused. 


For informational messages, the message 
writer assembles and writes the required 
message. The phase then passes control to 
the proper open phase or to the cancel 
routine. If control is returned to an open 
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phase, bit 4 cr byte 89 in the 
communicaticns region is set to indicate to 
the to the oren phase that entry is made on 
a return from a message writer phase. 


For action (A- and D-type) messages, the 
registers are saved and $$BOMSVA is fetched 
in order to exit to the SVA. 


$$ BMSGWE: 


Tape Cpen/Close Message Writer, 


Objective: To print informational messages 
to the operator. For messages reguiring 
operator response, exit to $$BOMSVA which 
in turn transfers control =o the SVA 
message writer. 


Entry: From tape Open/Close phases: 


S$S$BOMTOS $EECMTO3 
SSBCMTO1 €E€BCMTO7 
SSBCMTO2 


phase, to indicate the desired message. 


Input: Pointer, received from the calling 


1. To CANCEL. 


2. To $$BJCOFT if entered from tape close 
phase $$BCM1T07. 


3. To €$BOMSVA for action messages. 


4122I FOV ENCCUNTERED 
471251 VCL1 IEL FCUND 
4126I EOV ENCOUNTERED 


Notes; Messages not requiring printing of 
label informaticn may also be passed to the 
$$BMSGWR phase. 

Method: The $$BMSGWR routine is used for 
message writing and response interrogation. 


The calling rcutine passes the following 
information to the $$EMSGWR routine: 
e Register 0. The number of the desired 
message. 


e Register 12. 
address. 


The RETRY reply return 

e Register 13. The NEWTAP or EOV reply 
return address. 

e Register 14. The IGNORE or EOF reply, 
or the information type message return 
address. 

e The last two bytes in the name of the 


phase returned to. 
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Each message contained in this phase 
consists of four sections: 


1. Option byte. Indicates action to be 
taken after printing the message or 
valid response(s) i. 


Bit 0 = EOV or EOF 

Bit 1 = IGNORE 

Bit 2 = NEWTAP 

Bit 3 = Double message 

Bit 4 = RETRY 

Bit 5 = Information message (no 
response required) 

Bit 6 = System unit possible and 


CANCEL not valid response 
Bit 7 = Leave DTF blank. 


2. Displacement byte. Contains 
displacement, in bytes, from the start 
of the label to the field(s) to be 
printed. 


3. Length byte. Contains the length, in 
bytes, of the label irformaticn to be 
printed. 


4. Message. 


For informational messages, the $SBMSGWR 
message writer phase assembles and writes 
the required message. The phase then 
passes control to the proper open phase or 
to the cancel routine. If control is 
returned to an open phase, bit 4 of byte 89 
in the communications region is set to 
indicate to the open phase that entry is 
made on a return from a message writer 
phase. 


For action (A- and D-type) messages, the 
registers are saved and $$#BOMSVA is fetched 
in order to exit to the SVA. 


It is also possible for other modules to 
call the message writer and pass messages 
to it that are then issued by the $S$BMSGWR 
message writer. 


$20 
har 


Standard Volume Label Rewriter, 


IC ke 
che 


VOL 
FP 


Objective: To rewrite the standard volume 
labels in user-specified density on a dual 
density tape unit. 


Entry: Fetched by $$BOMT03, $$BOMTOE, 
$$BICOP1, and $$BOCPT3. The entry is made 
after a density discrepancy is found 
between an expired, standard labeled output 
tape and the assigned density. 


Exit: Returns to the calling phase. The 
tape is positioned at the end of HDR1. 


Method: $$BONVOL rewinds the tape and 
begins reading volume labels. As soon as 
the HDR1 label has been read, the tape is 
rewound, and the volume labels are 
rewritten at the specified density (either 


[ 800, 1600, or 6250 BPI). When all volume 
labels have been rewritten, a dummy header 
label of blanks is written. Control is 
then returned tc the calling phase. 


Objective: Free up the B-transient area 
while waiting for operator response or 
while rewinding a magnetic tape. 


Entry: From all CPEN/CLOSE transients that 
require a tape rewind operation and from 
all message writers. 


Exit: Tc IJJGMSGT in the SVA. 

512 bytes are oktained from the partition's 
GETVIS areas The calling routine's 
registers and the OPEN table are saved and 
the input from the various calling modules 
is converted and saved in the message 
writer I/F table and the message writer 
parameter list (MPL). The user save area 
is ther saved ard the user's PSW is changed 
to point to the IJJGMSGT entry point in the 
SVA. SVC 11 transfers control to this 
phase and frees the B-transient area. 


S$BOMSVA 


B-transients in crder to issue action 
messages and initiate tape rewind 
operations. 


Inputs 

RO Message code 

R2 Peinter to the DTF 

R3 Fointer to the TLBL 

R4 Second half of the calling 
phase's rame 

R6 Function to te performed 

R8 Phase to be called by 
£EBOMLTA 

R12,R13,R14 Return points after 
different operator 
responses 

SSBOMSVZ 


Functicn: Exits to the SVA writer to issue 
action message and read in the operator 
response. 


inputs: 

RO LTA message ccde 

R2 DTF frointer 

RY OPEN table pointer 

R6 Indicates tape or ISAM 
message 

R8 Fointer to message writer 
I/F table 
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RQ Message writer load point 
R7,R13,R14 Return points after 
orerator responses 


Qutputs 

R2 DTF pointer 

R5 Pointer to problem program 

R8 Pointer to message writer 
I/F table 

R13 Pointer to message writer 
save area 

R15 IJJGMSGT entry point 

Messages: 


4110A NO VOL1 LBL FOUND 
4111A NO VOL1 LBL FOUND 
4112A VOL SERIAL NO. ERROR 
4113D NO HDR1 LBL FOUND 
4114A FILE SEQ NO. ERROR 
4115A FILE SER NO. ERROR 
4116A VOLUME SEQ NO. ERROR 
4117D NO TM FOUND ON READBK 
4118D FILE ID ERROR, READBK 
4119A FILE UNEXPIRED 

4123D WRONG POSITN, READBK 
4132D ERROR IN FILE ID 
4133D ERROR IN HDR LBL 


IJJGMSGT; Issue Error Message, Chart FR 


perator response, and rewind tape if 
required. 


Entry: From $$BOMSVA and $$BOMSV2 


R2 DTF pointer ‘ 

R5 Pointer to problem program 
save area 

R8 Pointer to message writer I/F 
table (0 if entered from the SVA) 

R10 Pointer to the MNPL if entered 
from the SVA 

R13 Pointer to the message writer 
Save area 

R15 Entry point 


: Return to Logical Iransient Area, 


Objective: To return to the LTA after an 
action message has been issued or after a 
tape rewind command has been executed in 
the SVA; to issue a FREEVIS for space 
obtained by a GETVIS from $$BOMSVA; to 
restore the user save area; to set up 
return points, and then exit to the proper 
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B-transient phase. 
Entry: From IJJGMSGT. 


Exit; To next EB-transient or Job Control. 
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input 


RO Return code from SVA 
R8 Pointer to the message writer I/F 
table 


Device independent files are those files 
defined by either a [TTFCP macro or DTFDI 
macro. 


The CDTFCE macro defines files used by 
IBM compilers: COBOL, FORTRAN and PL/I. 


The DTFDI wacro defines files assigned 
to the device independent system units 
SYSRDR, SYSIPT, SYSPCH, and SYSLST. The 
DTFDI macro and its associated DIMOD macro, 
therefore, provide Assembler language users 
with the same capabilities extended by 
DTFCP. 


COMPILER FILES 


Compiler (CP) files are files provided 
specifically for IBM internal programs such 
as COBCL, FORTRAN, and PL/I. These files, 
defined by a DIFCP macro, provide limited 
‘device independence. Because this file 
definition does not conform to standards 
established fcr cther logical IOCS 
component and is tested for use only by IBM 
internal programs, it is not documented in 
any cther System Library publications. 


Some of the differences between CP 
components (DTFCP and CPMOD) and other 
LICCS components are: 


1. Nec provisicn for separate assembly. 
2. Error recovery not the same. 


3. The DTFCP takle is not 
self-initializing; that is, the user 
must initialize the table if the file 
is reopened. 


DIFCE Macro 


A DIFCP macro instruction can be used for 
each file that has fixed, unblocked 
records, and linrited device independence. 
When the file is opened, a channel program 
for reading/ writing on a particular device 
is built in the DTFCP table area (Figures 
31, 32, and 33). Only the following 
devices can ke accessed by DIFCP: IBM 
W422, 1443, 1403, 3211, 3800, 3289-4, 
2501, 2520, 2540, 2560, 3203, 3504, 
3525, 2400/3400 series, 2311, 2314, 
3310, 32230, 3340, 3350, 3370, 3540, 
and 5424/5425. 


3262, 
3505, 
2319, 
5203, 


The DIF table generated at assembly time 
is initialized by the DTFCP open phase 
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according to the device type. The device 
type is found by the open phase by checking 
the device type set in the PUB table entry. 
After it is found, the proper indicators 
are set in the DTF table, and the work 
areas and CCWs are modified. Standard 
labels are not required on tape files. 


The DTFCP header card is followed by a 
series of parameter cards describing the 
file, and specifying symbolic addresses of 
routines and areas used for processing the 
file. Because keyword parameters are 
specified, the parameter cards may appear 
in any order. This group of cards 
generates the necessary logical IOCS DTFCP 
tables during assembly. 


The parameter cards following the DTFCP 
header card have keyword entries in the 
operand field. All cards used in the DTFCP 
macro instruction, except the last, have 
continuation punches in column 72. 


Filename: This is the first entry ina 
DTFCP macro instruction. It assigns a 
symbolic name to the file, which appears in 
all IvO macro statements referencing this 
file. The symbolic name of the file is in 
the name field, and DTFCP is in the 


operation field. 


DEVADDR=SYSX¥XX; This parameter specifies 
the symbolic unit to be associated with the 
file. If SYSPCH is assigned to the IBM 
2540 or 2520 punch units, the CP Open 
transient allows the error recovery 
procedures generated by DTFCP when 
DEVADDR=SYSPCH. 


LTOAREA1=NAME: The I/O area to be used by 


the file is defined by an address 
expression. 


LOAREA2=NAME: If two I/O areas are needed 
for overlapped GET/PUT processing, this 
parameter is required. 


ITOREG=(n): For input files, this parameter 
specifies the general purpose register (n) 
into which IOCS inserts the address of the 
next logical record available for 
processing. For output files, IOCS inserts 
the address cf the area where the user can 
build the next logical record. Any 
register 2-12 may be specified. The same 
register may be used for different files. 


This parameter must be specified 
whenever two I/O areas are used. 


RECSIZE=n; This parameter specifies the 
number of characters in the record. [i/0 
routines use this factor for checking 
record length. If this entry is not 
specified, the maximum record length of 81 
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bytes is assumed. 
TYPEFLE=INPUT or QUTFUT: This parameter 
defines whether the file is an input or 
output file. From this specification, I0CS 
creates the appropriate channel program for 
this file. If this entry is not specified, 


an input file type is assumed. 


EOQFADDR=NAME: This parameter defines a 
preblem program address to which IOCS 
branches on an end-of-file condition. This 
entry must be supplied if TYPEFLE=INPUT. 
The user must perform any necessary 
end-of-file processing; for example, issue 
a CLOSE macro. 


DISK=YES, NC 
parameter is 
assumed, and 
33) is generated as in the tape 
the DISK= parameter is present, the disk 
resident system is assumed. If DISK=YES, a 
DTF table (see Figure 31) is generated that 
supports any device including the IBM 2311, 
2314, 2319, 3330, FBA devices, 3340, 3350, 
and 3540. If DISK=NO, a DIF table (see 
Figure 32) is generated for a disk resident 
system that supperts a device other than 
DASD or diskette. 


ex omitted: If the DISK= 
omitted, a tape system is 


system. If 


IOPTR=YES or cmitted: If YES is specified, 
the I/O area address must be put into 
register 0 before a GET or a PUT is issued. 
The module inserts the contents of the 
register into the data address portion of 
the CCW and proceeds as in the case of one 
I/O aré€a. The parameter must be included 
if a variable I/C area is required. 
RDONLY=YES cr cmitteds If YES or blank, the 
file uses a reentrant CP logic module. 
Unless RDONLY is omitted, the problem 
program must previde the logic module with 
the address of the unique 72-byte, 
doubleword aligred, save area for the file. 
This address is supplied in general 
register 13 befcre a logical I0CS 
imperative macre is issued to the file. 


to an FEA device, this parameter specifies 
the size of the CI. 
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the same DTF table (see Figure 


ASCII=YES: If ASCII=YES, ASCII records are 
supported. DISK=YES must be specified; the 
IOAREA2, IOPTR, and RDONLY parameters must 
be omitted; and system logical units must 
not be specified in the DEVADDR parameter. 
The macro generates the module name 
IJJCPAIN. This module is used for FORTRAN 
ASCII files. (Refer to CPMOD: PUT Macro, 
one I/O area detail charts.) 


CHARACTERISTICS OF DTFCP FILES 


1. Only fixed unblocked records formats 
are supported, 


2. Forward read only is supported. No 
read backwards is permitted. 


3. Employs standard physical IOCS error 
recovery procedures. 


4. American National Standard printer 
control character is always required 
for printer and punch files. 


5. GET and PUT are supported. 


6. Multivolume output of SYSLST and SYSPCH 
on tape is supported. 


7. Variable I/O area is supported if IOPTR 
is specified. For example, any area 
pointed to by register 0 when a GET or 
PUT is issued is considered the I/0 
area. 


8. Multivolume input and output on 
diskettes is supported. 


9. If special records (deleted or 
sequentially relocated records) are 
read, they are skipped (not passed to 
the user). 


For a multivolume diskette input file 
processing continues until all extents 
are exhausted. No volume sequence 
number or multivolume indicator 
checking is done. 


10. 
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{| Bytes*{ FBits| Function | 


( eet CRED EERO ED CHE? ERE IPG GED TEED GED EEE > ED EE? GD GE EE GREED CRED GREE ASE TED EE) OED ED A OS OE SPR RATED CPE, AEP TED SNS ES ESS cE AE eee eR CS ETA OEY GED ES LEPINE AED TTS LEP OLEB TEED OEY LD LEYLA GLI CID | 


| 8-byte header preceding the DIF | 


ED AED COD ENS CR ES EDA A ERS OLED GED 








|} O-: | {Reserved | | 
| 4-7 | j|Address of the Version 3 area of the DTF! | 
= 45 |CCB. If the file is on a DASD device, the CCW address in bytes 9-11 





; | 
{ i : I 
| (O0-OF) | | (09-0B) is changed by OPEN to point to a DIF extension in the user | 
| \ |virtual save area. CLOSE restores it. If 3800 extended buffering is | 
| | jselected, the CCW address is changed by OPEN to point to a DTF extension| 
| | {work area in the user virtual area. CLOSE restores it. | 
I { ; | 
{716 (10)] 0 {Not used. | { 
| | 1 |Set by MAINT; indicates that LIOCS must retrieve extents from the VTOC | 
| | Jinstead of the label cylinder. | 
{ | 2 {COBOL open; ignore option. { 
| i 3 |X¥'10" indicates an unlabeled FORTRAN tape. ( 
{ i 4 {|DTF table address constants relocated by OPENR. | 
{ { €& |Used by FCRTRAN (Sequential Disk Backspace and Rewind). j 
| | 6 11 = ASCII, 0O = EBCDIC. | 
| | 7 {FORTRAN is calling DTFCP. |. 
{ | | | 
{17-19 | |Logic module address. If the file is on a DASD device, OPEN changes | 
{ (11-13) | jthis address to point to the logic module residing in the system virtual| 
| { Jarea (SVA). CLOSE restores it. If 3800 extended buffering is { 
{ | |selected, OPEN changes this address to point to the extended buffering | 
] | Jlogic module IJDPR3 in the system virtual area. CLOSE restores it. | 
[ | i | 
j20 (14) | |DTF type X'32', except in the case of disk assigned to units other than | 
| | -(SYSLNK. In this case, DTFCP open changes it to ¥'20'. | 
{ . | | | eo | 
{21 (15) |Cpen indicators: xX'02' input, X'00' output, except for tapes assigned | 
; : | {to SYSOOO to SY¥Snnn when ¥'00* = input and X'08' = output. | { 
| | 1X'O08" DISK=YES indicator. | 
|. ( 0 |1= no rewind, 0 = rewind. ] 
| | | | 
{22-28 | |Filename (see byte 29). { 
| (16-1C) | | | 
i | | | | 
129 (1D) |Levice type code: ( 
( ( }x*O00* = 2311 X'O08"' = 3340 general i 
| ] ix'O 1 = 23214, 2319 ¥'09' = 3340 35MB | 
| | 1X¥'O4" = 3330-1,-2 X'OA* = 3340 70MB i 
| { }X*O5* = 3330-11 Xx'45" = 3800 with TRC | 
| | 1x¥'O7' = 3350 X*90" = 3310, 3370 | 
: | | [ 
130-35 | [File address for disk; block count if bit 7 of byte 16 is on. | 
| (1E-23) | | | | 
| | | 

{36-37 | {Volume sequence number or work area. | 
(24-25) | | | 
{ i | 
{3@ (26) | JOpen switch. | 
i | l | 
139 (27) | |Sequence number of current extent. | 
| l { | 
{40 (28) | |Sequence auaher: of last extent, or X¥'80' if 1442 punch. | 
| | 

141 (29) | 1X¥'80" indicates request for standard label tape OPEN. | 
a a cs ea es ce es cee Sem ee eee es wd ae a eed ee eee Si a ass ie Sin Ss i ee cincinnati em Sc in Sa Sn ei lid i is a cs al 

1 The Versicn 3 area is described in VSE/Advanced Functions Diagnosis kKeference: LIOCS 


Volume 4, SAM for TASD. 


Figure 31. DIFCP: DISK=YES (Part 1 of 3) 
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A EE CLT SA A LS OD SES LAST RES AD 


























SS SS ee SS 
|Bytes* | FEits| Function { 
nf 4 OO SS Se — a | 
{42 (2A) | iX'&0" device is a 2560. X'08' device is a printer | 
| | 1X'40O" DTF has been extended into X¥'04' device is a punch i 
{ | | the user virtual save area. X'02' device is a reader [ 
| ] 1X'20* device is a DASD. X¥'O01" RPS is supported ; 
{ | {x'10' device is a tape. | 
l ( | H 
{43 | 1X'F3" device is a DASD. | 
{ (2B) | {X'F1" device is a reader. i 
] ; |X'FO' device is other type. [ 
{ ( { | 
}44 | QO 41 = input, O = output. | 
| (2C) { 1  |1 = eject needed for a reader punch; 0 = no eject. [ 
| | 2 {0 = first pass, 1 = not first pass. | 
| ] 3 |1= two I/O areas, 0 = one I/O area. | 
| { G4 411 = 2540 punch. | 
i | 5 11 = SYSLST or SYSPCH. | 
i ; 6 {1 = SYSLST or SYSPCH on output tape. { 
i { 7 {1 = TLBL is present and tape is labeled. { 
i | [ { 
[45-47 | JIOAREA2Z address. ] 
| (2D-2F) | | | 
{ ! | | 
{48 | Q 41 = Always on. | 
{ (30) | 1 jReserved for future use. | 
| | 2 |1 = Version 3 DTF. | 
| | 3-7 {Reserved for future use. } 
[ { | [ 
149-51 | {Reserved for future use. | 
| (21-33) | | | 
i { | | 
$52-53 | [Lower head limit. | 
| (34-35) | | | 
{ ( | | 
{54-57 | JExtent upper limit. | 
| (36-339) | | 
{ | | 
(58-64 | {BBCCHHR seek address or physical block number for FBA DASD. | 
| (34-40) | | | 
[ { i { 
{65-67 | |EOF address. | 
Acamiibias: | | 
{ 
{68-71 | iControl Eucket CCHH; not used for FBA DASD. | 
: (44-47 ) | | | 
(72 (48) | {Number of records per track for output, number of record per track +1 { 
| | {for input. { 
| | | | 
(73 (49) | 1X¥'O00" for output, X'01" for input. ] 
| | | | | 
(74-75 | 1X*0020" for output, X¥'0018' for input for DASD. | 
{| (4A-4B) | (X¥'0008" for 2560 and 5424/5425 output. | 
{ | 1¥*0000" for nondisk device. | 
( [ | | 
{76-80 | ICCHHR for count field; not used for FBA DASD. | 
| (40-50) | [ i 
{ i | 
181 (51)4 {Key length. i 
{ { | | 
{82-83 | }Cata length. | 
| (52-53) | | | 
{ ( | | 
(84-87 | JInstruction to load user I/O area address to I/O register. | 
1 (54-57) | | | 
a ca is een macs nent mes mses cep Seino “ess ic sum ie ms sei es “mans mc <i cm <i cm em enum comms secs Sa miscsnco omnes ‘scm Comings Sm o-minimal tii cmp nin ts nici cs i mou osenin ell 
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eee ED EE OE GED AUD EE CRED COORD EES RES ES GIES AD ND cy CARD EAD CEES AD ADEN SEES SPEED CES ED CD IY OA ANY CERIN SIND CAL CAS EA TTD CNY CT AAD CANONS A SAID eee nee ee 


{Bytes* | 


| SEED OGD ERED GEES UN COED CRED Grey IR ee CE AE CED cD CTD ee coune au cee 
‘ 


Bits] Function { 














CONG AS TD EERE ERED OD AED CD TD PGES AED CED CARED SAO CERIN GED ADR OED IORI ER ED CED 4h hs a ED oe a | 


jEnd-of-table if CTF is defined for an input file. i 


RSE CD OTP COD CEOS ESD CHE CRED EE ea GED CEE GSN aD CEN ED a A ne GEE IE GEE AED eS CREED ETN ED COMED CY CUED amp ema CONE 


188-111 | 
| (58-6F) | 


i | 
{112-119| 
{| (70-76) | 


( | 
1120-127} 
| (77-7F) | 


{ | 
1128-151 
| (80-97) | 


J|End-of-table if DIF is defined for output file and DEVADDR does not equal SYSPCH. 


| CD ERS EES SA ESTED EES LED AEE ED COS ES BENS A SA NS ED SRS ES CED ae RES ES ES ES CRED SE EES SEED ES CSE eS EER GED ENS SD RD ERD SOE GERD RE) D-CA ED OES SE CN CURE ETD MTD DOD GSP AND ND SETS I EY SNEED CEES ARENAS GADD COMED OAD ARES ACEO ARDY SEED SEY ER RRS TD 


p1EZ-1E9| 
| (98-9F) | 


| 160-167} 
| (AO-A7) | 


| i 
{168-231 
| (A8-E7) | 


[When the CP open initializes the table and determines that the device is a 2540 punch, 
{the following bytes in the table are changed: 


[30 (1F)| 


l 
[32535:..| 
| (20-23) | 
i 
{48-55 | 
| (30-37) | 
| [ 
{56-63 | 
| (38-3F) | 
l { 
{64-71 | 
{| (40-47) | 
( 
| 


i 

}72-151 

{ (48-97) | 
| | 
(152-231| 
| (98-E7) | 


] co a ce cree care ee ee cee ce ae ce ne ee ae eS SR a me A eS <en-m cnem man canse 


\When the CE open initializes the table and determines that the device is a 2560 or 
{5425, the fcllcwirg bytes in the table are changed: 


{32-35 | 
| (20-23) | 


| { 
(48-55 | 
| (30-37) | 


l 
[56-63 | 
| (38-3F) | 


| 

164 (40) | 
| 
165 (41)1 
aie | 





SE EE AIS LATE IEE LD STS AD AEE UTED A EOD KEI ENS CLD GRE CEMD AENEAN CT) AD OD SED EE ED OE SG ED CED SD OND GEE LT ED SETTER 








ne te AS SSE NN <A SD SD DN I AE APT ND RD DS ND Sn NE cE T-ESc T | 
|Seek, search, TIC CCWs; not used for FBA DASD. | 
i | 
| | 
{CCW for DASD input and first CCW for DASD output; not used for FBA DASD.|. 
|}This CCW can be used for other devices if unit is not a DASD. 
| 

|Second CCW for output. 

| 

| 

|Verify CCWs for output. 

; 


e 








{2540 punch error recovery CCW 1. 
; | 


| 

{2540 punch error recovery CCW 2. 
[ 

| 

| Reserved. 











CRE CERNE ALD ERD ESD ESP ETID ALES ELE ALD CLLR IE ELD. EER TED ENCES REP 








ED CD EDAD CSOD OID ED SESS ANNE CONT 





|X*FF"' indicator to DTFCP open phases and logic module. 


| 
jInstructicn to load user I/O area tc I/O register. 


I 
| 
|CCW. 
l 


I 
{2540 punch error recovery CCW 1. 
i 
2540 punch error recovery CCW 2. 


| 

| 

| 

| : 7 

|&@0-byte card image, savearea 1. 
{ 

| 

{ 


€0-byte card image, savearea 2. 


aan GSR ame awe Gee SP eee oe 28 aoe OR awe = ee eee em oe ee oP oe ee oe 8 ow SER eee ee OR ee OO ee eee <8 ewe ewe es = as owe =P eum 














{Instruction to load user I/O area tc I/O register. 
| 


| ; 
[First output CCW. 
| 


| 
{Second output CCW. 


| 
j|Stacker select character V for ASCII. 








ED NS EDL ELIE LEED OPE CMTE ED 





| 
{Stacker select character W for EBCDIC. 


ba scechynincetennntiancnetnee 





EY SL CATE VA AGEIEE OLY EY ETD LD CLL EES 








*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 31. 
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| “pytes* | Bits | Function | 
|- —_—{~-----+------—__-_ ean mannan 
10- 15 | |CCB. | 
| (00-OF)| - ‘| | 
i i | [ 
{16 {| O-1 |Not used. | 
| (10) { 2 |COBOL open; ignore option. | 
] | 3 |Not used. | 
| | 4H  |CTF table address constants relocated by OPENR. | 
{ ( 5 |Not used. | 
i | 6 |1 = ASCII (used only if DISK=YES), 0 = EBCDIC (used only if DISK=YES). | 
i | 7 {FORTRAN is calling DTFCP. | { 
; i | | 
{17-19 | {Logic module address. [ 
| (11-13) | { 
| { | | 
{20 | |DTF type ¥'32' except in the case of tape assigned to units SYSO000 to | 
{ (14) { 1SYSnnn. In this case, a DTFCP open phase changes it to xX'10'.! | 
l { [ | i 
{21 | {Open indicators X'02' input, X'00' output (except for tapes assigned | 
{| (15) | Ito SYSO0OO to SY¥Snnn when it is X'00' input, X'0O8' output). | 
| { | i 
{22-28 | {Filename (see byte 29). | 
| (76-1C) | | { 
{ ( | | 
{29 (1D) |Cevice type codes X'45* = 3800 with TRC. i 
| i 
{30 (TE) | {Indicator to DTFCP open phases and logic module. | 
| | |X'FF* for input files. i 
| | 1X'OO* for output files. | 
| [ | | | 
{31 (1F) | {Reserved for future use. | 
{ | | | 
{32-35 | JInstructicn to load user's I/O area address into I/O register. | 
| (20-23) | | l 
{ l | [ 
{36-37 | | Volume Sequence humber or work area. | 
| (24-25) | | | 
; | | | 
{3 (26) | {Cpen switch. ; 
( ( | | 
139 (27) |Sequence number of current extent. | 
I i | | 
$40 (28) | |Sequence number of last extent, or X'80' if 1442 punch. | 
; [ [ 
1417 (29) | ;x'20° | 
| i | 
142 ; {X¥'80" device is a 2560. | 
| (2A) | iX'4O" device is a 5424/5425. | 
{ { }¥'10" device is a tape. | 
{ | \¥'O8* device is a printer. | 
| | [X¥"'04" device is a punch. [ 
| | {Xx'O2' device is a reader. ] 
l { | i 
143 | {X'F1" device is a reader or tape. | 
| (2B) ] {|X¥'FO" device is other type. | 
a i a a Saas ane a Ss i a as a a a ss a a cs a i wes ew es Sa cs Ss as a de ct a cs ieee ees ee ns a 0d Ss ee wee 


IDTF tyre ¥*'30" found in DOS LIOCS Version 1 only. 
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Co = PLS SIN LID AERO cep OED AY AAS A, SERED GERD ERED EON) AOS CRED GET: NE OD ene AED GETS AER ED ere GANT AED OT ED EN EO YRS ED EE AD I ee A ED NY SL A AED ON OD ATED AT NAA A NER OED ED ES SLANT ED AEDES OED aN CMTS A AAD ED TT aE SENOS ROOTS AY HED 


= 
{Bytes* }Eits| Function | 
[eae ee a SS ee ee ee eee ee | 
(44 (2C) { 0  |1 = input, O = output. | 
i j} 1 |1= eject needed for a reader-punch, 0 = neo eject. | 
{ {| 2  |1 = not first pass, 0 = first pass. | 
| j} 3 {1= two I/O areas, O = one I/O area. | 
] { 4 41 = 2540 punch. | 
( | 5S {1 = SYSLST or SYSPCH. | 
| 1 € |1 = SYSLST or SYSPCH on output tape. | 
i {| 7 |Reserved for future use. | 
| { | | 
} 45-47 | {IOAREA2 address. | 
| (2D- ZF) ( | { 
{ | | | 
j4E-55 { |CCW. | 
[| (30-37) | | | 





| NGS GEE EO CED A GR en RR SED ED ENS ED OES ED CI ED SEED MOD SED GE eS SD eee EER eS AD EE SD AD ES RIED A ED IS EN TE TED ORCA SORTS ORD AD RD AEP A AN SAD MNRAS SAR ED SE RS SY TD TS A ND A RPA SRY AAD SD ES SD AD ETS TEED GEARS MET <eLNID | 


{End-of-table is DIF is defined as output file and CLEVADDR is not equal to SYSPCH. | 


| AD MS A AES ED <a EES AE OED RR ES ORES CRED ROE CORY AED CER ARON SME EES ES EAE AED GERD CES SEY COTY SEES SS END AA ED ETE OTD MENS RD CRED ENE SEED ETS ARES ES ED AD YE OED OEE EA ORR EY PONS AE SAND ERE NE A ERD AAS A ND AD EE SE MTS RIE EOE AED EGS LD EID EA EATS CORES SOMES ED aE RPS REE | 


{56-63 | {2540 punch error recovery CCW 1. | | 
}(38-3F) | | | 
| | ( | 
{64-71 | {2540 punch error recovery CCW 2. | 
1 (40-47) i | . | 
| { | | 
{65-67 | [ECF address, input only. | 

| 


(41-43) | | 


| A ND CO A D D UNEED D aEY D D EY D D  D AR ED ED AD GES CE ee ED 





ED CLAD A AD ED TED AES TD AAD OD TMT SEAT RD AAD GR AED OTR IED ARTS AD AID CEE COTES PAS TDAP A EN NT ED SODAS ERD oD IEE SND AGRE COE AD RSE OTS SD | 


J|End-cf-table if DTF is defined as input file. . | 


AANA CD A TION GAY A AE RR ANN ELOISE GRIN <M ITED LO SEED AGE SOLER NES TREE MEO GLY CREED PAIN er AICI IID ALATA ANE ANY AER ARTI ARR ica EID REN <AAET ccIS R ED AED WCU hE) CRONE AOE ena AL CLT ED oN AOR oo EE AEN SORRELL COED AA EY OTD AD EO AROS ANS ND CN AIA AERETED NOD GAA oR ETD AID NS ALIENS UNTO | 


\72-151 { |8O0-byte card image, Save area 1. | 
}(48-97) | | | 
| { | 
{152-231 | |€0-byte card image, save area 2. | 
1(98-E7) | | | 


| A LS CRD ACES CD OR AED EY ASD AED RS ED SEED SE EY ED ee ee ee ee CUD KAAS RAED Ay —wee NP GR GS 


JIf device is a 2560 or 5424/5425, bytes 56 onward contain the following information: | 


| SE AES CATE CTT COD PE AY ED ED AD ROS LS AD A A ED A RE ES ES OD CST cD ED TED ED AD ED ED CD I cD 





2 A ED oe SE ee coe OO a ae 











{56-63 I [Second output CCW. | 
[| (38-3F) | ; | 
i | | | 
164 (40) | {Stacker select character V for ASCII. | 
| | | | 
{65 (41) | |Stacker select character W for EBCDIC. | 
| i | | 
{66-75 | {Feserved for future use. | 
1 (42-48) \ | | 
i | | | 
(76-235 i {First I/O area. | 
| (4C-EEF) | l | 
| ; | ( 
{236-237 | | Reserved. | 
| (EC-ED) | | | 
| | | | | | 
{238-317 | |Second I/O area. | 
J (EF-13D) | | | 
l { | | | 
{318-319 | j|Reserved. | 
| (13E-13F) | | | 
Rc eel AGRO en Nee OS PCM TC OE Ree AO Sa SOOT oe TE ee Lae ae Te Ea eerie OE ee ee eee alae ste cuttel 





*Numbers in parentheses are displacements in hexadecimal notation. 
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{Input or output table generated when the parameter DISK= is omitted from the DTFCP 
Jmacre (Tape Resident System Type). 





SAR IRE CELE GIR CES UBD GENER PME PD CMS ELIA GND EXTER SENS BMAD AE LEDC SEGA AD LUPE IE CPR TIETS CED CA ATARI CABIN. 








{ AAS IED -UIMS BEGREY AMCED CALLE RAIS EME EEL PENS TL OLY EETIT CREA MNES OED RNY CLES NEE SUBIC LEIS SHEED CESSES OMENS CENA 

















i 

| 

l 
{|Bytes* | Bits | Function { 
I- —-—— +—— == me semen Seen ata nein a iene nse neces sine emeeemvenecaniamysateoescewerevaioeoceinm { 
; O-15 | |CCR. | 
1 (00-OF) | | | 
; | l 
116 | O-1 {Not used | 
{ (10) | 2 {COBOL open; ignore option. | 
| { 3 {Not used. | 
i | 4 |DTF table address constants relocated by OPENR. ] 
| l 5 |Not used. [ 
| ] 6 {1 = ASCII (used only if DISK=YES), 0 = EBCDIC (used only if DISK=YES). | 
| | 7 {Used by FCRTRAN. | 
1 | i 
{17-19 | {logic module address. | 
(117-173) | I | 
| | | 7 | 
{20 { |DTF type X'31" except in the case of tape assigned to units SYS000 to | 
1 (14) | iSYSnnn. In this case DIFCP open phase changes it to X'10°. { 
l i | { 
{21 | jOpen indicators X'02' input, X'00* output (except for tapes assigned | 
1 (15) | {to SYSO00 to SYSnnn when it is X¥'00" input, X*'08" output). { 
( ( | | 
{22-28 | |} Filename. | 
( (16-1C) | [ i 
| | I 
{29 (1D) 4 |Device type codes ¥'45* = 3800 with TRC. é 
i { [ | 
130 (1E)| (x*O00" indicator to DTFCP open phases and logic module. ] 
( [ [ i 
}31 | QO |1 = input, 0 = output. | 
{ (1F) { 1 |1 = eject needed for a read punch, 0 = no eject. | 
{ | 2 11 = not first pass, 0 = first pass. { 
f { 3 |1= two I/O areas, 0 = one I/O area. | 
| | G4 {1 = 2540 punch. | 
| i 5 11 = SYSLST or SYSPCH 
| | 6  |1 = SYSLST or SYSPCH on output tape. | 
] j 7 |1 = TLBL specified and tape is labeled ; 
i | | | 
{32 (20) {Cpen indicators. | 
{ [ | 
{33-35 | {IOARFA2 address. { 
1 (21-23) | | | 
i l | | 
{36-329 | {Instruction to load user's I/O area address into I/0 register. | 
1 (24-27) | | i 
i i l i 
{40-47 | ICCW. | 
| (28-2F) | | | 


| nceeee AED Gee <A Dota aarp cilce cintp hey exeie aera CUE RES cients ine En cet tainee GET Cflllibeser> SARE CORNERED ED SENSED cea ey CEES DTD CRUD COND EET SEEMED GREED CED CED ett aaa es clad ig aes es IDLE AOE AL AE LS TS CI TE saa acs een tain ii i iam ep ca ti an al 





Figure 33. DIFCP: DISK= Parameter Omitted (Part 1 of 2) 
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Fe Fe eT ee ee he ee Te Te OT ee ee eo eel 


| Bytes* {Bits 


| em GD <i OUEP OSES CEES SEED omen EE GD GE cE Ge ES OE ee ee ee ee ee eo 





Function | 


{End of table if DIF is defined as output file and DEVADDR is not equal to SYSPCH. { 








(48-55 | [2540 punch error recovery CCW 1. 
| (30-37) | l 

; | 

{56-63 | {2540 punch error recovery CCW 2. 
| (38-3F) | | 

| { | 

157-59 | {EOF address, input only. 

| (39-3B) { | 


| se is ss sistas Ss nem’ i sh Sse mn mn ssi Sich “Ss mn opines emi on cea Sm inh oi Sap Ss in-stent cn echnical osm sn ees ec ph ans wi cin ne oes auch Sp abs Sins 
{End of table if DIF is defined as input file. 
Da a a i a es 


j64-143 | |€O0-byte card image, save area 1. 
[| (40-8F) | | 

| | I 

$144-223 =| {80-byte card image, save area 2. 
{(90-13F) | | 


| 
gl 
| 
| 
| 
| 
| 
| 
| 
| 
| 
: 


| 
{For 2560 and 5424/5425 bytes 48 onwards contain the following information: 


148-207 | {IOAREA1. 

| (30-CF) l | 

| | | 

j20e8-20S | |Reserved. 
{(DO-C1) | i 

i | | 

{210-369 | {IOAREA2. 
{(D2-171) | | 

i | | 
{370-371 | {Reserved. 

{| (172-173) | | 

{ { | 

{372-451 | j|Compare area. 
1 (174-1C3) | | 

i as hh eh ee ees a i ine ic i in Sey a ee 





SE LEED ENED AD EI SR ND ED OE SRD ED AED, ED AES ED AE ER RE EES LTE GARPLS kD OAITD SDR ERED ERY COURS EOS ORE OTE we ERT eka a 


| 
| 
| 
! 
| 
i 
| 
| 
"| 
| 
| 


Ce CEES ARE ED SOT RY AAT ES AED AED SOND cer SND 


LE TITY AA) ED TD SD CE ORNL A RY ETD AD ED ARN LCT EEESY AOSD CORED ATED SOD SU ECR SED ERED EA CES TLS ERS EET AES ORES REESE UAT SESS CTD ND OMENS SERED PEELE EERO MOSER GAD RD CERT ENED ARE OND MODES EN ERED | 





FEED ETE ED CED SCRE ED COND CED Soe AEE NED GREED SEED CS EAE EE SOD RD ED REED CUED OES CEES EY GOA ENED UNA GSD GERD GENER CEREUS aD OEERE 


ene ee nee 





*Numbers in parentheses are displacements in hexadecimal nctation. 


Figure 33. DTIFCP: 


The CPMOD macre is used with IBM internal 
programs only; and is not documented in 
System Library rublications, (see the 
section "Compiler Files"). VSE/Advanced 
Functicns, Kelease 2, provides a 
preassembled superset logic module that is 
loaded in the SVA during IPL; therefore, 
CPMOD is not used for DASD files because 
OPEN selects the appropriate logic module 
in the SVA and links it with the DTF via 
the DIF extension. 


The CPMOL wacro generates nine different 
logic mcdules. Each CPMOD logic module is 
flowcharted and descriked in detail. 

Output modules where RETRY=NO is specified 
are not flowcharted because they are the 
same as the other output modules except for 
the 2520 and 2540 punch error recovery 
procedures. 


The GET/FUT logic modules for two I/0 
areas, with IOPTR and RETRY omitted handles 
all other cases except those modules where 
IOPTR=YES is specified. 


NANES 


CDISK= Parameter Omitted (Part 2 of 2) 


The parameters of the CPMOD macro are 
keyword parameters. Because keyword 
parameters are specified, the parameter 
cards after the header card may appear in 
any order. This group of cards generates: 
the necessary logical IOCS CPMOD during 
assembly. 


The parameter cards following the CPMOD 
header card have key entries in the operand 
field. All cards used in the CPMOD macro 
instruction, except the last, have 
continuation punches in column 72. 


If NAME is specified, it is generated 
as the CSECT name of the module. No other 
entry points are generated. 


TYPEFLE=INPUT or OUTPUT: If INPUT is 
specified, IOCS generates a module to 
handle input only. If OUTPUT is specified, 
IOcS generates a module that handles both ~— 
input and output. If the TYPEFLE parameter 
is omitted, OUTPUT is assumed. 


IOAREA2=YES or Omitted: If YES is 


specified, “the generated logic module 
provides automatic switching between two 
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I/O areas. If this parameter is omitted, 
one I/O area is assumed. 


IOPTR=YFS or Cmitted: If YES is specified, 
the I/O area address is assumed to be in 
register 0. This parameter allows the user 
to change the IyvO area address used with 1 
I/O area. If ICPTR is specified in CPMOD, 
it must also be specified in the DTFCP 


macrlce 


the IOCS error recovery procedures for the 
IBM 2520 and the TEM 2540 punch devices are 
eliminated freom the generated module. If 
the parameter is omitted, the 2520 and the 
2540 punch error recovery procedures are 
included on the generated module. When the 
file is defined for input, this parameter 
is ignored. 


DISK=YES or Qmwitted: If YES is specified, 
it is ignored; CPEN selects the appropriate 
logic mcdule in the SVA and automatically 
links it to the DTF (via the DTF 
extensicn). If omitted, the module 
generated is the same as in the tape 


resident systen. 


RDONLY=YES cr Quitted: If omitted, the 
module generated by the CPMOD macro is not 
reenterable. Tc be reenterable, general 
register 13 is used to point to a 72-byte, 
doubleword aligned, save area unique to the 
particular task using the module. In this 
way several tasks can asynchronously use 
the same module if each task provides its 
Own Save area. 


EBCDIC and ASCII records are supported, and 
the macro generates the module name 
IJJCPAIN. DISK=YES and RETRY=NO must be 
specified, and the ICAREA2, IOPTR, and 
RDONLY parameters must be omitted. If 
TYPFLE= is specified, TYPEFLE must equal 
OUTFUT. If, however, TYPEFLE is omitted, 
output is assumed as a default value. If 
ASCII= is omitted or equals any other value 
except YES, ASCII records are not 
Supported. For FORTRAN ASCII files, refer 
to CPMOD: PUT Macro, one I/O area detail 
charts. 


TRC= {YES|NO}: This operand applies to the 
IBM 3800 Printing Subsystem. YES specifies 
that a table reference character may he 
included as the first byte of each output 
data line (follcwing the optional print 
control character). The printer uses the 
table reference character (0, 1, 2, or 3) 
to select the character arrangement table 
corresponding tc the crder in which the 
table names have been specified with the 
CHARS parameter cn the SETPRT job control 
statement (or SETPRT macro instruction). 


For a DTFCE file, the presence of table 
reference characters is specified with the 
TRC=Y parameter on the SETPRT job control 
statement (or SETPRT macro instruction). 
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If the TRC parameter is specified, 
TYPEFLE=INPUT must not be specified. 


The IBM-supplied preassembled logic 
modules do not have TRC=YES. The system 
programmer can reassemble them with TRC=YES 
to support 3800 table reference characters. 
If some, but not all CPMOD logic modules 
are reassembled this way, it may interfere 
with subsetting or supersetting. 


If extended printer buffering is used 
for all DTFCP files printed, then the CPMOD 
module is not needed. 


Notes When uSing CPMOD be sure to issue a 
new LTORG for each CSECT of your program 
which uses literals because CPMOD may have 
issued a different LTORG for its own 
literals. 


IQ 


PNOD 3 


Objectives To cause two I/O areas to be 


loaded from an input device and toc allow 
overlap. 


Entry: From a GET macro expansion issued by 
the problem progran. 


Exit: To the problem program, to user's EOF 
routine, or to $$BOPEN to get a new 
diskette extent. 


Method: This routine is similar to the PUT 
two I/O areas routine, except it does not 
contain the logic to support a printer or 
punch. It contains only the logic 
necessary to retrieve records from an input 
file. 


During the first pass, both I/O areas 
are read into. Overlap is made possible by 
allowing the second I/O area to be filled 
while the first one is being processed. A 
wait for I/O complete is issued to allow 
the previous read to be completed before 
processing the data of that area. 


When an end of file is sensed, the 
user's registers are restored and a branch 
to the user's EOF routine is made. 


When an end-of-extent condition is found 
on a diskette and there are no more 
extents, the user's registers are restored 
and a branch is made to the user's EOF 
routine. If more extents are available, 
S$$BOPEN is fetched to get another diskette 
extent, and processing continues. 


All user's registers are saved upon 
entry into CPMOD and are restored when 
control is returned to the problem program. 
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EOF reutine, cr to $$BOPEN to get a new 
diskette extent. 


Method: This routine makes a logical record 
available to the user in the I/O area. 

When an end of file is sensed, a branch to 
the user's ECF rceutine is made. 


When an end-of-extent condition is found 
on a diskette and no more extents are 
availakle, a kranch is made to the user's 
EOF routine. If there are more diskette 
extents, $$BCEEN is fetched to get another 
diskette extent, and processing continues. 


The routine is similar to the GET two 
I/O areas routine except the logic to 
handle I/O area switching is not included. 


GET Macro, IJOPIR=YES, Chart NB 


Objectives To read a record into the I/0 


area pointed tc by register 0 (IOPTR). 


included, the CF module generated allows 
the user to use any area in main storage 
(other than a storage protected area) as an 
I/O areae The I/O area is pointed to by 
the address loaded into register 0. With 
this exception, this routine is the same as 
the GET with cne I/O area. 


overlap. 


3: From a PUT macro expansion, or from 


En 
an SD work file clcse. 


1. To the preblem progran. 


2. To the user's EOF address, if EOF 


occurs on an output device other than a 


printer. 


3. To $$BCMIO7 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 


4. To $$BERRIN error recovery routine, if 
an error occurs on a 2540 or 2520 


Licensed Material - Property of IBM 


punch. 


5. To $$BERRIN if the upper extent is 
exceeded on a DASD file. 


6. To $$BOPEN to get a new extent if the 
upper extent is exceeded on a diskette 


Methods If entered for the first time, the 
PUT routine performs an I/0 operation 
immediately. (After the initial entry, 
this I/O operation is bypassed.) When the 
I/O operation is complete, the routine 
checks for an EOF condition. If an end of 
file is detected on a unit record device 
(cther than a printer), control is passed 
to the user's end-of-file routine. If an 
end of file is detected on a magnetic tape 
device assigned to SYSPCH or SYSLST, the 
PUT routine fetches phase $$BCMTO7 to 
determine if an alternate device is 
available. If it is not necessary to 
handle an EOF condition, the addresses of 
the two I/O areas are exchanged, another 
I/O operation is performed, and control is 
returned to the problem progran. 


The I/O subroutine first tests to 
determine the device type, and appropriate 
action is taken. If the device is a DASD 
or diskette, a routine is initialized to 
determine if various specified limits have 
been exceeded, and to update the seek 
address and ccunt. When an end-of-extent 
condition is found on a diskette and no 
more extents are available, $$BOPEN is 
fetched to get another extent, and 
processing continues. The input/output 
operation is performed, and control returns 
to the problem progran. 


If an error occurs and the device is an 
IBM 2540 or a 2520 punch, the error 
recovery transient, $$BERRTN, is called. 
When an error recovery is complete, control 
returns to the module. 


Notes If RETRY=NO is specified as a 
parameter in the CPMOD macro, the error 
recovery facility is not present in the 
module. $$BERRTN is also called to cancel 
the job if the upper extent is exceeded on 


a DASD file. 


CPMOD; PUT Macro, One IZC Area, Chart 
NE-NF 
Objectives: 


1. To write a logical record. 


2. To read or write FORTRAN ASCII tape 
records. 


Entry: From PUT macro expansion, or from an 
SD work file close. 
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1. To the problem program. 


2. To the user's EOF address if EOF occurs 
cn an input device. 


3. To $$BCMTO7 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 


4. To €$BEFRIN error recovery routine if 
an error cccurs on a 2540 or 2520 
punch. 


5. To £€$BERRIN if the upper extent is 
3 exceeded on a DASTI file. 


6. To $$BOPEN tc get a new extent if the 
upper extent is exceeded on a diskette 
file. 


Methcd: The FUT routine saves the user's 
registers and then checks for various 
devices. If the device is a tape unit, the 
I/O operation is performed immediately. If 
the device is a DASD or diskette, the 
specified limits are checked and the seek 


address and count are updated. 


When an end-of-extent condition is found 
on a diskette ard no more extents are 
available, $$BOFEN is fetched to get 
another extent, and processing continues. 


If the device is a printer or punch, the 
American National Standard printer control 
character is picked up and converted to 
EBCDIC coding VSE/Advanced 
Functions Diagnosis Reference: LIOCS Volume 
1 for ASCII). 


Next, the specified control operation is 
performed. TRC processing will occur at 
this time if indicated in the DTFCP. When 
the control operation is complete, he I/0 
operation indicated by the PUT macro 
instruction is performed. The user's 
registers are restored and the routine 
returns control to the problem program. 


Error and FCF conditions are handled in 
the same manner as described in the PUT 
routine for two I/O areas. 


Objective: To write a logical record from 
the I/O area pointed to Ly register 0 
(IOPTR). . 


Entry: From a PUT macro expansion or from 


$$BOSDC1 - Close SD work file. 


1. To the problem progran. 
2. To the user's EOF routine if EOF occurs 


cn punch cr DASD device. 
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3. Teo $$BCMTO7 if EOF occurs on an output 
tape assigned as SYSLST or SYSPCH. 


4. To $$BERRTN error recovery routine if 
an error cccurs on a 2540 or 2520 
punch.. ! 


5% To S$E$BERRIN if the upper extent is 
exceeded on a DASD file. 


6. To $$BOPEN to get a new extent if the 
upper extent is exceeded on a diskette 
file. 


Method: When the parameter IOPTR=YES is 
included, the CP module generated allows 
the user to use any area in main storage 
(other than a storage protected area) as an 
I/O areas The I/O area is pointed to by 
the address loaded into register 0. With 
this exception, this module is the same as 
the PUT with one I/O area. 


Device Independent (DI) system files are 
files assigned to the system logical units 
SYSRDR, SYSIPT, SYSPCH, and SYSLST. The 
files are defined by a DTFDI macro for 
fixed unblocked records on the following 
IBM devices: 


1403 Printer 

1404 Printer 

1442 Read punch 

1443 Printer 

2311 Disk Storage Drive : 
2314 Direct Access Storage Facility 
2319 Disk Storage 

3203 Printer 

3211 Printer 

3262 Printer 

3289-4 Printer 

3310 Disk Storage Device 

3330 Disk Storage 

3340 Direct Access Storage Device 
3350 Direct Access Storage 

3370 Disk Storage Device 
2400-series or 3400-series Magnetic 
Tape Unit - forward read only. 
2501 Card Reader 

2520 Card Read Punch 

2560 MFCM 

3504 Card Reader 

3505 Card Reader 

3525 Card Punch 

3800 Printer 
5203 Printer 

5424/5425 Multifunction Card Unit. 


DTFDI Macro 


The DTFDI macro defines the file for device 
independent system units and generates a 


Licensed Material - Property of IBM 


table containing the information necessary extent provided is processed. No volume 


to describe the file for processing by the sequence checking is done. Neither the 
DIMOD logic module (see Figure 34). multivolume indicator nor the volume 
| sequence number in the HDR1 label is 
Multivolume input and cutput diskette examined. Sequencing of volumes is totally 
files are supported. For multivolume controlled by the volume serial numbers on 
diskette input files, processing continues the extent cards. 


until a diskette associated with each 























{| Bytes*{ Bits | Function | 
|---——-—-- ———- + — —— ——————— ——— a SS | 
{ O-15 | j|CCB. If the file is on a DASD, the CCW address in bytes 9-11 (09-0B) is| 
| (O0-OF) | j|changed by OPEN to point to the DTF extension. CLOSE restores it. If 


| }3800 extended buffering is selected, the CCW address is changed by OPEN 
Jjto point to a DIF extension work area in the user virtual area. CLOSE 
|restores it. : 

i 


1-3 |Not used 
4 {Always 1 
{i 5-7 |Not used. 
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| 

i \ 

{ | 

i | 

{ 16 {| O-1 {Not used. 

{ (10) { 2 {COBOL open; ignore option. 

i {| 3 {Not used. : | 

| i 4 [CTF table address constants relocated by OPENR. 

{ | 5-7 |Not used. 

| { { 

| 17-19 | {Address of logic module. If the file is on a DASD, OPEN changes this 
| (11-13) | jaddress to point to the device independent logic module in the system 
] | jvirtual area. CLOSE restores it. If 3800 extended buffering is 
| | {selected, OPEN changes the address to point to the extended buffering 
{ i jlogic module IJDPR3 in the system virtual area. CLOSE restores it. 
| { | 

{ 20 | |DTF Type = xX¥'33° 

1 (14) : 

i . 

{ 21 | {Open/Close indicators - X'82* = input, X¥'80'" = output. 

1 (15) { 0 |Always set on for no rewind. 

l | | 

j 22-28 | {Symbolic filename. 

‘ane | 

i i 

{| 29 | IDASD or diskette device indicators 

| (1D) | 1X'OO" = 2311 

( | }x'O1* = 2314, 2319 

| | 1X'O4" = 3330-1,-2 

| | 1xX'05" = 3330-11 

{ | 1x'07" = 3350 

{ | {x¥'O8* = 3340 general 

| | {1xX'09" = 32340 35MB 

i | 1X'OA* = 3340 7OMB. 

| | 1x'*90* = 3310, 3370 

| { | 

{| 30-35 | {CASD address of format-1 label. 

ee 

{ 

| 36-37 | |DASD or diskette volume sequence number. 

1 (24-25) | | 

| { | 

|} 38 | {|Cpen communications switch. 

| (26) i Oo 11 = Nc more extents -- diskettes 

| a | 

| | 

; 


Figure 24. DIFLCI (Part 1 of 3) 
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jBytes* | Bits | Function 3 i 
fam a a a a rr nee emma iene menace ate ean cememaimniomemes 
139 (27) | |Sequence number of current extent. | 
( { | | | | | [ 
{40 (28) | {Sequence number of last extent, or X'80' for 1442 reader punch. | 
| i ; | | : | 
141 (29) | {Open indicator = X'20'. | 
{ [ [ [ 
{42 (2A) | {Device type indicators: | 
| | 0 {Unused ] 
i i} 1 ©.|1 = DIF has been extended into the partition GETVIS area | 
| | Zz {!1.= DASD | | 
| | Ss }1 = tape | 
i ; 4 {1 = printer | 
| i - 5 {1 = punch | 
| i 6 11 = reader | 
| | 7 11 = RPS supported. | 
| | | [ 
1 43 | {logic module device indicators: | 
| (2B) { }X'F3" = DASD or diskette device | 
| | {X'F1" = reader or tape device [ 
{ ( |X¥'FO' = cther type device | 
( [ | |. 
144 (2C) | {Logic module option switches | 
| | O {1 = input; 0 = output. | 
| | 1 {1 = eject for RDR-PCH; 0 = no eject. | 
| | 2 {171 = not first pass; 0 = first pass. { 
{ | 3 {1 = two I/O areas; 0 = one I/O area. { 
{ i 4 11 = 2540 Punch. i 
| i ba 17 = SYSLST/SYSPCH. | 
| | 6 {1 = Tape SYSLST/SSYSPCH. | 
| | 7 {1 = ASCII; 0 = EBCDIC code. | 
{ { | | 
1; 45-47 | {Alternate I/O area sGaeess. [ 
| (2D-2F) | | | 
i f [ i 
148 (30) | |Logic flags: [ 
| | - | Reserved. | 
| | 2 11 = Version 3 DTF. | 
| | - |Reserved. | 
i is }1 = TRC=YES specified on DTF { 
{ | 6 11 = TRC in effect | 
{ | 7 11 = 3800 printer | 
i { { | 
{ 49-51 | |Reserved. i 
| (31-33) | l | 
| ( | { 
j 52-53 | jExtent lower head limit. | 
| (34-35) | ; { 
( | i [ 
| 54-57 | jExtent upper head limit. | 
| (36-39) | | | 
l | | [ 
{| 58-64 | {DASD seek address. i 
{ (3A-40) | {Diskette seek address at byte 60 (3C). | 
| i [ | 
| 65-67 | {Users EOF address. | 
| (41-43) | | | 
l ( | l 
| 68-72 | iControl bucket CCHHR. | 
1 (44-48) ]. {Byte 72 (48) always X'0O1' for diskettes. | 
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Figure 24. DUIFLI (Part 2 of 3) 
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ee eee Pee a Be ee See ae ee re a a a a a ee Senn eoeenoee cers 

|Bytes* | | Function | 

 aaacecpaamn a Sead a ee re Se ee ee ee ee { 

{| 73 | Jlogic module switches | 

1 (49) { X*O1" = input [ 

{ | 1X'OO0* = output { 

{ i 1X'O0O0* = both input and output on diskettes. | 

i | | ( 

174-75 |. |Logic module constants ] 

| (GA-4B) | 1X'0020" DASD output 

; | 1X'0018" DASD input | 

{ ] {1x'O0008" Diskette devices i 

i | 1X¥'0000" Non-DASD devices | 

i { ; | 

{| 76-80 | {Count field CCHHR (OCHRO for diskettes); not used for FBA DASD. | 

| (40-50) | | [ 

i i i i { 

181 (51) | j|Key Length. : | 

| i | | 

{ 82-83 | {Data length. | 

| (52-53) | | | 

[ { | _ | 

{| 84-87 | jinstruction to load IOREG with correct I/O area | 

1(54-57) | jaddress. { 

( | { | | 

{ 88-102] |}Seek, Search CCWs; not used for FBA DASD. | 

| (58-67) | |Seek, Read/Write CCW for diskette files. | 

[ { | i 

{7104-111] {TIC CCW. | 

| (68-€EF) | }NOP CCW for diskette output files; ] 

i ; junused for diskette input files. { 

{ i | | 

, 112-119 jInput/foutput CCW. | 

| (70-77) | | | 

{ | | 

{120-127 |Second output CCW. [ 

| (78-7F) | , | 

l | i | 

{128-151| {Verify CCWs for output. | 

| (80-97) | | | 

{ | | { 

{152-159 {Error CCW1. | 

| (98-9F) | | | 

I { | | 

{160-167 {Error CCW2. | 

| (AO-A7) | | | 

[ { | I 

{168-231 |Save area (64 bytes). | 

| (A8-E7) | | | 

[ { | [ 

}232-235 | JDC A(WLRERR) if WLRERR=Address. | 

| (EB8-EB) | {E 28(15) if ERROPT= omitted. | 

{ | 1B 25(15) if ERROPT=SKTIP. { 

| | 12 28(15) if ERROPT=IGNORE. | 

{ { { { 

}236-23¢| {DC A(ERROPT) if ERROPT=Address. | 

| (EC-EF) | {2 0(15) if ERROPT= omitted. | 

| | {1B 24(15) if ERROPT=SKIP. | 

{ ae | |F 28(15) if ERROPT=IGNORE. | 

LS 5S cis ce cs Su cas St vm Sc min ces ei he Sib cm Simm Si ents ta in smn wan ies css emi. ain nuit ams sett sense csi ont mes ei nw ai pe es me avocado io Sas canara 

*Numbers in parentheses are displacements in hexadecimal notation. 

Figure 34. OUTFCI (Part 3 of 3) 

DIMOL Macro device independent module generated by a 
DIMOD macro provides the logic to 
accomplish the logical IOCS functions of 

Device independent files provide users of GET and PUT. For DASD, VSE/Ad vanced 

the Assembler language with the same Function, Release 2, provides a 

capabilities available to users of COBOL, preassembled superset logic module that is 


FORTRAN, and PI/I in files defined by the 
DTFCP macro. 


Device Independent Files 


loaded into the SVA during IPL; therefore, 
Like the CP logic module, the this macro is ignored by OPEN in the case 
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of DASD files. Instead, the appropriate 
logic module is selected by OPEN and linked 
to the DIFDI via the DIF extension in the 
user virtual area. 


GET Macrc, One I/O Area, Chart PA 


Objective: To read the next sequential 
logical record into an input area specified 
by the user. 


Entry: From a GET macre expansion. 


1. To the next sequential instruction 
following the GET macro expansion in 
the proklem program after a record is 
read intc the input area. 


2. Tc the user's EOF routine if an 
end-of-file condition occurs. 


3. To cancel via an SVC 50 if an error 
cccurs and the ERROPT parameter is not 
specified in the DTFDI macro. 


4. Ic $$BOPEN tc get a new extent if the 
upper extent limit is exceeded on a 
diskette file. 


Method: The GET routine first determines 
the device tyre specified in the DTFDI 
table. If the device is DASD or diskette, 
the routine validates the record number and 
updates the CCHHR seek address if 
necessary. The routine then issues an SVC 
0 and waits for the I/O operation to 
finish. If the device is DASD or diskette, 
the record number is increased by one at 
this time in preparation for the next GET. 


A check is made for error and 
end-of-file conditions. Errors are handled 
in the manner specified by the user in the 
DTFDI macro parameters. An end-of-file 
conditicn causes the GET routine to exit to 
the address cf user's EOF routine instead 
of to the address of the next sequential 
instruction in the preblem progran. 


When an end-of-extent condition is found 
on a diskette ard no more extents are 
available, a branch is made to the user's 
EOF routine. If there are more extents, 
$$BOPEN is fetched to get another extent 
for the diskette, and processing continues. 


ea record into an input area a reid 
by the user, and to provide processing 
overlap by alternately reading records into 
one of the specified ee areas and then 
into the other. 
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Entry: From a GET macro expansion. 


1. To the next sequential instruction in 
the problem program following the GET 
macro expansion. 


2. To the user's EOF routine if an 
end-of-file condition occurs. 


3. To cancel via an SVC 50 if an error 
occurs and the ERROPT parameter is not. 
specified in the DTFDI table. 


4. To $$BOPEN to get a new extent if the 
upper extent limit is exceeded on a 
diskette file. 


Hethod: The GET routine, when'’two I/O areas 
are employed, functions in the same manner 
as a GET with one I/O area. The difference 
between the two routines is the utilization 
of two I/O areas by alternately exchanging 
the addresses of the two areas each time a 
GET macro is issued. Therefore, to the 
user it appears that the record is 
available in the same input area for every 
GET. 


Objectives To write the next sequential 
logical record to the file from a user 
specified output area. 


Entry: From a PUT macro expansion in the 
problem program. 


Exits: 

1. To the next sequential instruction in 
the problem program following the PUT 
macro expansion after the record is 
written to the file. 


2- To phase $$BCMTO7 if an EOF condition 
is reached on an output tape assigned 
to either SYSLST or SYSPCH. 


3. To phase $$BERRTN if a punch error 
occurs. 


4. To the user's EOF routine if an EOF 
condition is reached on devices other 
than diskette, or SYSLST or SYSPCH 
assigned to an output tape. 


5. To the user's WLR or ERROPT routine, if 
specified in the DTFDI macro 
parameters, to handle other error 
conditions. 


6. To $$BOPEN to get a new extent if the 
upper extent limit is exceeded ona 
diskette file. 


Method: The PUT routine determines the 
device type and selects the proper I/O 
operation to write the record to the file: 


1. If the device is a reader or a magnetic 
tape, an SVC 0 is issued directly. 


2. If the device is a DASD, the number of 
the reccrd to be written is checked and 
the CCHHR seek address is updated, if 
necessary, kLefore the SVC 0 is issued. 
If an end-cf-extent ccndition is found 
on a diskette, $$EOPEN is fetched to 
get another diskette extent, and 
processing continues. 


3. If the device is a printer or punch, 
the contrcl code is determined, 
converted to EBCDIC code if ASCII is 
specified (refer tc "Appendix C"), and 
the control function is performed. 
When the control function is complete, 
TRC processirg will occur if indicated 
in the [TFLI. An SVC 0 is then issued 
tc write the record. 


After the record is written, tests 
determine if a unit exception or error 
condition occurred. If a unit exception 
occurred, the fcollcwing action is taken: 


1. Fer printers, the unit exception is 
ignored. 


2. For output tapes assigned to either 
SYSIST or SYSPCH, phase $$BCMTO7 is 
fetched to determine the availability 
of an alternate device. 


3. For all cther devices, the address of 
the user's ECF routine is obtained from 
the DIF table and used as the return 
address frcem the PUT routine. 


Other error conditions are handled as 
specified by the user in the DTFDI macro 
parameters. 


Objectives: To write the next sequential 
logical record to the file from a user 
specified output area and to provide 
overlap thrcugh the use of two I/O areas. 


1. To the next sequential instruction in 
the problem program following the PUT 
Macro exparsion after the record is 
written to the file. 


2. To phase $$ECMTO7 if an FOF condition 
is reached cn an output tape assigned 
to either SYSLST or SYSPCH. 
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3. To the user's EOF routine if an 
end-of-file condition is reached on 
devices other than diskette, or SYSLST 
or SYSPCH assigned to an output tape. 


4. Te phase $$BERRTN if a punch error 
occurs. 


5. To the user's WLR or ERROPT routine, if 
specified in the DTFDI macro 
parameters, to handle other error 
conditions. 


6. To $$BOPEN to get a new extent if the 
upper extent limit is exceeded ona 
diskette file. 


Method: The PUT routine, when two I/O areas 
are employed, functions in the same manner 
as a FUT with one I/O area. The difference 
between the two routines is in alternately 
exchanging the addresses of the two I/0 
areas each time a PUT macro is issued. 

Even though two areas are used, the 
exchange of addresses makes it pcessible for 
the user to insert the record to be written 
at the same address for each PUT macro 
issued. 


Objective: To attempt a recovery from a 
punch data check condition on a 1018 paper 
tape punch with the Error Correction 
Feature. 


Entry: From an output PTMOD, or from 
$$BCLOSP if closing a file using two I/0 
areas. 


Exits: 


1. To the calling routine after the error 
is corrected. 


2. Automatic job termination if the 
unrecoverable error must not be ignored 
(for shifted codes). 


3. Job cancelation for CANCEL response. 


4. To the calling routine for IGNORE 
response. 


Method: Phase $$BERPTP first determines the 


type of paper tape code used. 


1. If the code used is a shifted code and 
if there is no conflict between the 
delete and the shift characters, the 
character in error is repunched along 
with the remaining part of the record. 


2. If the code used is a shifted code and 
if there is a conflict between the 
delete and the shift characters, the 
character in error is repunched along 
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with the remaining part of the record, 
preceded Ly its ccrresponding shift 
character. After three unsuccessful 
attempts, the job is automatically 
cancelled and message 4P01I is printed. 


3. If the code used is a non-shifted code, 
the character in error is repunched 
along with the remaining part of the 
record. After three unsuccessful 
attempts, message 4P02D is printed, 
allowing the operator to CANCEL the job 
Or IGNORE the error. 


Control returns to the calling routine 
via an SVC 11 (PIMOD) or an SVC 2 
(f$$EBCLOSE). : 


4. In all cases, the character in error is 
overpunched with the user-specified 
DELETE character. 


Objectives: To attempt a recovery from a 
punch error condition on either a 2520 or 
2540 punch, cr tc cancel the job when an 


extent is exceeded while writing on a DASD. 


CPMOD if RETRY=NO is not specified. 


Exits: Tc the calling routine after the 


error is corrected or to the message writer 
phase $$BOMSG1 if an extent is exceeded. 


type of device cn which the error occurred. 


If a punch error cccurred on a 2520, the 
message 4000I is printed to indicate that a 
retry is being made and the card in error 
is repunched. | 


If a punch error cccurred on a 2540, the 
card in error is repunched, the retry 
message 4000I is printed, and the card 
follcwing the error card is repunched. (It 
is necessary to repunch the card following 
the error card because it is in the process 
of being punched when the punch error is 
detected and bcth cards are stacker 
selected.) 


Control returns to the calling routine 
via an SVC 11 when the punch error is 
corrected. 


If an error cccurred ona disk device, 
preparation is made to print message 48871 
and the message writer phase $$BOMSG1 is 
fetched. 
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INITIALIZATION AND TERMINATION 


Device independent files are opened by the 
same logical transients used to open 
compiler files. The close routine for a 
DTFDI file provides for reinitialization of 
the DTF table. This procedure removes from 
the DTFDI files the restriction on 
reopening impcsed on DTFCF files. 


defined by either DTFCP or DTFDI (Version 1 
DTFCP excluded). 


Entry: From the Open Monitor ($$BOPEN1). 


1. To $$BOCP02 if the DTF is a tape 
resident system type DTFCP. (This DTF 
table type is generated if the DISK= 
parameter is omitted from the DTFCP 
Macro. ) 


2. To $$BOCP03 if the device is a unit 
record device. 


3. To $$BOCPT1 if the device type is tape 
and the file type is input. 


4. To $$BOCPT2 if the device type is tape 
and the file type is output. 


5. To $$BOPEN if the device type is DASD 
or additional files remain to be 
opened. 


6. To the problem program if no more files 
remain to be opened. 


7. To $$BOMSG1 to issue the error message, 
4883I INVALID LOGICAL UNIT. 


8. To $$BODUCP if the file is a diskette 
file. 


9. To $$BOESTV if TES processing for tape 
is required. 


Method: This routine is called by the Open 
Monitor when the file is found to be a 
DTFCP or DTFDI type (Version 1 DTFCP 
excluded). Because the logic modules for 
both file types provide for device 
independence, this phase is needed to 
determine the device type associated with 
the logical unit. The PUB is located for 
the lcegical unit and the DIF is initialized 
according to the device type (see Figures 
31, 32, and 33). 


The LDIOREG routine initializes the 
user's I/O register. 


If the device is tape, a check 


determines if Jcb Control has already 
opened the device. If the file is open and 
if there are more files tc open, $$BOPEN, 
is fetched. If no more files remain to be 
opened, control returns to the. problem 
program. If the file has not been opened, 
$$BOCPT1 is called to open the input files, 
and $$BCCPT2 is called to open the output 
files. 3 


If device tyre cannot be determined, an 
error message is issued and the job is 
canceled. If the device is a tape drive 
and found to be file protected, an error 
message is issued and the operator may 
either insert a ring in the tape reel or 
cancel. my 


Objectives To open the DIFCP tables of the 


tape resident system type (Version 1 
DTFCE). | 7 


Note: A tape resident type DTFCP table is 
generated if the DISK= parameter is omitted 
from the DTFCF nacro. 


Entry: From $$BCCP01, or from $$BOMSG1. 


1. To $$BOEEN, if additional files remain 
te ke opened. 


2. To the problem pregram, if no more 
files remain to Le opened. 


3. To £$BOMTIO6, if the device type is tape 
and the CP type is input. 


4. To $$BOMSG1, to print the following 
messages: 


48831 INVALID LOGICAL UNIT 
4“884D NEED FILE PROTECT RING 


5. To $$BOFR3 if the device type is a 3800 
printer. 


manner as $¢BOCE01, except when it is 
entered from a message routine. If this is 
the case, a sense command is issued anda 
test is made fcr file prcetect. If the file 
is not file protected, $$BOMT06 is fetched. 
If it is, a message is printed, via © 
$$BOMSG1. If the file being opened is 
assigned to a 3800 printer, then this phase 
exits tc S$$EROPR: to complete open 
processing for the 3800. 
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bles for unit record files 
FC 


(Version 1 
P excluded).-= | 


3 


Entry: From $$BOCP01. 


1. To $$BOPEN if additional files remain 
to be opened. 


2. To the problem program, if no 
additional files remain to be opened. 


3. To $$BOPR3 if the device type is a 3800 
printer. 


Methods: The routine at the label UNTRCP 
initializes an I/O area. The addresses of 
the I/O area in the CCW and the alternate 
I/O area are modified to bypass the control 
character if the device is a printer or a 
punch. This routine also reinitializes the 
DTF table if the device is a reader punch. 


If the device is a 1403, 3203, or 5203 
printer with the Universal Character Set 
(UCS), a set mode command is given to ; 
suppress data checks. If the file being 
opened is assigned to a 3800 printer, then 
this phase exits to $$BOPR3 to complete 
open processing for the 3800. 


If the device is a 2560 or 5424/5425, 
the command code required for the specified 
hopper is inserted in the first CCW for 
input files. For output files, two CCWs 
are loaded; the first for stacker . 
selection, the second for the punch 
operation. | 


This phase functions in the same manner 
as $$BOCP01 to open unit record files. 


File, Charts QG-QH 
Objective: To set up for the 3800 printer 
open initialization routine, IJDPR3 + 28. 


Entry: From $$BOURO1, $$BOCP02, or $$BOCPO3 
when a 3800 printer file is being opened. 


Exits: To the problem program if no files 
remain to be cpened. To phase 1 of Open 
processing ($$BOPEN) if the open parameter 
list contains more files to be opened. 


Method: This phase issues SETPRT and 
QSETPRT macros that require a 512 byte work 
area. Part of the B-transient area itself 
is used for this work area. 


The SETPRT macro is issued to either 


allow or to block data checks, depending on 
the DTF type and what the user has 
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requested in his DIF. The QSETPRT macro is 
used tc query the currently set printer 
characteristics. These characteristics are 
passed to IJLFER3. 


IJEFDF3 is called by this phase to 
perform open intialization processing for 
extended bufferirg mode. IJPDR3 is entered 
at offset 28. The CILOAD function is used 
to obtain the main storage address of 
IJPDR3 as it resides on the SVA. 


Return codes from CILOAD or IJPDR3 may 
indicate that extended buffering mode is 
not possible. No message is issued for the 
normal situations of the partition being in 
virtual = real mcde or having no GETVIS 
area. If there is some GETVIS area, but 
not enough fcr extended buffering, a 
message is written to SYSLOG. CDLOAD or 
SETPRT failures cause messages to be 
written to SYSICG. IN all cases, open 
processing continues. 


For a DTFFR, the [TF open indicator is 
set. Fer all DIF types, if the results of 
the QSETPRT operation indicate that TRC 
mode has been requested by the user's 
program or job ccntrol statements, the TRC 
bit is set in the DTF. (TRC mode means 
that the first data character ina data 
record is a table reference character that 
enables the user's program to dynamically 
select different character sets for 
different records of a 3800 output file.) 


1s Cpen LIFCP (Version 1 Only) 


1. To $$BOCF12, if DTFCP is Version 1 tape 
resident system type (this DTFCP table 
type is generated if the DISK= 
parameter is omitted from the DTFCP 
Macro). 


2. To $$BOFEN, if the device type is DASD 
or additional files remain to be 
opened. 


3. To the problem program, if no | 
additional files remain to be opened. 


4. To S$$BOMT06, if the device type is 
tape. 


5. To $$BOMSG1, to put out the following 
messages: 


4883I INVALID LOGICAL UNIT 
4884D FILE PROTECT RING NEEDED 
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Method: This phase is called by the Open 
Monitor when the file is found to be a 
Version 1 DTFCP table type. The phase 
performs the same functions as $$BOCP01, 
except that it applies only to Version 1. 


DIFCP (Version 1 Cniy) 

F 

Objectives To open Version 1 DTFCF tables 
of the tape resident system type. 


Notes; A tape resident type DTFCP table is 
generated if the DISK= parameter is omitted 
from the DTFCP macro. 


Entry: From $$BOCP11, or $$BOMSG1. 


1. To $$BOMT06, if device type is tape. 


2. To $$BOPEN, if additional files remain 
tc be opened. 


3. To the problem program, if no more 
additional files remain to be opened. 


4. To $$BOMSG1, to put out the following 
messages: 


4883I INVALID LOGICAL UNIT 
48840 NEED FILE PROTECT RING 


Methods: This phase is called by $$BOCP11 
when the file is found to be a TOS Version . 
1 DTFCP. The phase performs the same 
functions as $$BOCP02, with the exception 
that it applies only to Version 1. 


nd DIFDI Input Tape, 


1. From $$BOCP01, if the file is defined 
by DTFCP or DTFDI and the device is a 
tape. 


2- From $$BOCPM1, after a message has been 
issued and a non-cancel reply has been 
received. 


3. From $$BOCPT4U, if $$BOCPT4 was called 
by other than $$BOCPT1 or $$BOCPM1. 


3s To $$BOCPT4, to continue processing 
1 information. 


rit 


xit 
abe 


Methods This routine performs various open 


procedures after determining: 


1. If the user has provided a TLBL or 
TPLAB card. 


2. The positicr of the tape with respect 
to its load point. 


3. Whether the tape contains standard 
labels or a tapemark. 


If an unlabeled input tape file is to be 
opened, this rcutine skips the tapemark, if 
present, and positions the tape at the 
first data record. 


If a standard labeled input tape file is 
to be cpened and a TLBL or TPLAB card has 
been provided, this routine uses the label 
information supplied to check the HDR1 
label. It skips the additional header, 
volume, and user labels and positions the 
tape at the first data record. Only single 
volume files or multifile volumes can be 
opened ty this routine. After the proper 
procedure is determined, $$BOCPT4 is 
called. 


Note: If bit 6=1 in byte 16 of the DTFCP, 


and if DISK=YES, then input data is in 
ASCII mcde. 


Objectives Io determine if output tape file 
is to be created with labels and to fetch 
the necessary reutine if it is; to open the 
file if it will ke unlabeled. 


1. From $$BOCP01 if the file is defined by 
DTFCP or C[TFLI for output and the 
device is a tare. 


2. From $$BOCPM2 after a message has been 
issued and a non-cancel reply has been 
received. 


3. From $$BCCPT3 returning for retry. 


1. To $$BOCET3, the open transient for 
labeled cutfut tapes. 

2. To the TES frocessor, $$BOPEN, if more 

files remain tc be opened. 


3. To the problem program, if no more 
files remain to be opened. 


4. To the message writer, $S$BOCPM2, when 
an error condition occurs. Sw 


Method: Upon initial entry from $$BOCP01, 
this phase searches for label information 
(in the label informaticn area) as supplied 
by TLBI (or TFLAB) job control statements 
and then reads the first record on the 
Output tape to check for a VOL1 label ora 
tapemark. 
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The presence of either the VOL1 label or 
TLBL information requires the creation of a 
new HDR1 label. This phase tests for file 
protection, load point, and 1600 BPI and 
then fetches and transfers control to 
$$BOCPT3 for the actual label checking and 
writing. 


If an unlabeled output tape file is to 
be opened, this routine determines if the 
tape has a tapemark. If the tape has a 
tapemark, it is retained. If the tape 
lacks a tapemark, no tapemark is written. 


Note: If bit 6=1 in byte 16 of the DTFCP, 
and if DISK=YES, then input data is in 
ASCII mode. 


bijective: To open labeled output tape 


iles. 
Entries: 


1. From $$BOCPT2 if output tape is already 
labeled or if label information was 
supplied by TLBL (TPLAB) job control 
statements. 


2. By return from $$BOCPT2 after a message 
has been issued, and a non-cancel reply 
has been received. - 


1. To $$BOPEN, if more files remain to be 
opened. 


2. To the problem program if no more files 
remain tc be opened. 


3. To the message writer, $$BOCPM2, when 
an error condition occurs. 


4. To phase $$BOCPT2 for retry if entry to 
this phase was neither from $$BOCPT2 
nor a return from the message writer. 


5. To the Standard Volume Label Rewriter, 
S$S$BONVOL, if the volume label must be 
rewritten according tc the user 
‘specified density. 


Method: After relocating the CCBs and CCWs 
for the tape I/O routines, the mode and 
density are set for the user's file tape. 
Then the instructions necessary to search 
the label information area for TLBL 
informaticn are initialized with necessary 


disk and storage addresses. The 


communication region is then tested to see 
if entry is a return from the message 
writer. If it is, reentry will be to the 
label PROCRUN2 to execute the next 
subroutine of the procedure group unless a 
more specific return address exists in the 
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linkage register.. 


If entry was frem $$BOCPT2, the proper 
series of subroutines are executed as 
chosen by the precedure pointer passed to 
this phase in the register equated as 
PROCPTR. 


Effectively, the action of these 
subroutines is such that for standard 
labeled output tapes: 


1. Expiration date is checked. 


2. If label information is provided by 
TLBL (or TPLAB) cards, a new HDR1 label 
is written. 


3. If label infcrmation is not provided, a 
dummy header is written. 


4. No additional standard header or user 
header labels are written. 


5. For a 9-track dual density output tape, 
a comparison is made ketween the 
user-specified density (either 800, 
1600, or €2£0 BPI) and the VOL1 density 
of the mcunted tape. If a discrepancy 
is found, and if the tape is at 
loadpoint, the volume label(s) is 
rewritten by $$BONVOL according to the 
user-specified density. 


The last routine in each procedure group is 
an exit reoutire to fetch $$BOPEN, $$BOCPM2, 
or $$BOCPT2 as required or to return to the 
problem program. Note that this open phase 
can only create single file output tapes. 


1. From $$BOCPT1 to continue processing 
tape label information. 


2. By return from $$BOCP1T1 after a message 
has been issued, and a non-cancel reply 
has been received. 


Exits: 

1. To message writer, $$BOCPM1 to write 
the errcr message wher an error 
condition occurs. 


2. To phase $$ECCPT1 for retry if entry to 
this phase was from neither $$BOCPT1 
nor a return from the message writer. 


proper series of subroutines are executed 
as chcsen by the procedure pointer, which 
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is passed to this phase in the register 
equated as PROCPTR. 


Effectively, the action of these 
subroutines is such that for standard 
labeled input tapes: 


1. If label information is provided by 
TLBL cards, a new HDR1 label is 
written. 


2. A check is made to see if VOL1 and file 
serial number are blank. 


3. A proper message is given for any error 
conditions that exist. 


The last routine is an exit routine to 
fetch $$BOPEN, $$BOCPM1, or $$BOCPT1 as 
required or to return to the problen 
program. 


Objective: To close DTFCP and DTFDI input 
and output tare files. 


Entry: From the Close Monitor after it is 
determined that the file is a DTFCF or 
DTFDI type, and the device is a tape. 


Exits 





To the Close Monitor if additional files 
remain to be closed. 


e To the problem program if no additional 
files remain to be closed. 


e To the message writer, $$BOMSG1, when an 
incorrect TLBL (or TPLAB) card image 
record is found. 


Method: This routine performs various close 
procedures after determining whether the 
rewind option has been specified, whether a 
TLBL (or TPLAE) card has keen provided, 
whether the tape file is input or output, 
and whether the tape has an EOF1 trailer 
label. 


If the file is an input tape, this 
routine checks to determine if the rewind 
option has been specified. If the rewind 
option has been specified, the tape is 
rewound. If it has not been specified and 
the tape has standard trailer labels, all 
standard labels and user trailer labels are 
bypassed and the tape is positioned to the 
first record after the tapemark which 
follows the set of trailer labels. 


If the file is an unlabeled output tape, 
this routine writes a tapemark and rewinds 
the tape if the rewind option has been 
specified. If the file is a standard 
labeled output tape, this routine writes a 
tapemark. An EOF1 trailer label is built 


and written on tape followed by two 
tapemarks. If the rewind option has been 
specified, the tape is rewound. If it has 
not been specified, the tape is backspaced 
one record. : 


Objective: Tce close DTFCP, DTFDI, and DTFCD 
punch files and recover possible errors 
occurring when the last card in the file is 
punched. To clese DIFPT and to check the 
last record if the output file has two I/0 
areas. 


Entries: 
e Frem the Close Monitor, $$BCLOSE, to the 
entry point EEGINRTN. 


e From $fBERPTE, if an error has been 
detected on a 1018 paper tape punch 
using a DIFPTI output file with two I/0 
areas during the last punch operation 
and if error recovery procedure is in 
process. 


Exits: 
e To the Clese Monitor $$BCLOSE if there 
are additicnal files to be closed. 


e To the proklem program if no additional 
files remain to be closed. 


e To $¢$BERETE if an error occurred during 
the last punch operation on a 1018 paper 
tape punch using a DTFFPT output file 
with two I/O areas. 


Methcd: This routine first determines the 
device type. If the device is a 1442 punch 
or a 1442 reader punch, the routine exits 
to the Close Monitor or to the problen 
program if no additional files remain to be 
closed. Depending upon the file type and 
whether there are one or two I/O areas, the 
following actions are taken: 


1. For a DIFCD file with two I/O areas 
where the device is a 2540 punch, an 
error, if it has occurred, is corrected 
on the card preceding the last card. 
Then, any error detected on the last 
card is corrected. 


2- For a DIFCD file with one I/O area 
where the device is a 2540 punch, any 
error detected on the last card is 
corrected. 


3. For a DIFCD file with two I/O areas 
where the device is a 2520 punch, any 
error detected on the last card is 
corrected. 
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4. For a DTFCD file with one I/O area 
where the device is a 2520 punch, no 
error recovery is needed and the 
reutine takes the proper exit. 


5. For a DTFCP and DTFDI files (one or two 
I/O areas) where the device is a 2540 
punch, error recovery is performed 
first on the card preceding the last 
card punched. Then, any error detected 
on the last card is corrected. 


6. For a DTFCP and DTFDI files (one or two 
IvO areas) where the device is a 2520 
punch, any error on the last card is 
corrected. 


7. j%For a DTFPT output file with two I/0 
areas, the checking of the last record 
is performed, and in case an 
unrecoverable error occurred, a channel 
program is reissued to punch the entire 
erroneous record if the ERROPT operand 
is coded in the DTFPT. 


In all cases, whenever an error card is 
repunched correctly, the message 4000I 
RETRY is printed on SYSLOG to inform the 
operator that the error was retried. 


£BOCPM2: 


Ir 
Ict jta 
ItH!1o 


Objective: To write messages on SYSLOG and 
to process operator responses to the 
messages issued. 


Entry: From the DIFCP and DTFDI tape open 
routines, $$BOCPT1 and $$BOCPT2. 


Exits: 


1. For certain messages, automatic job 
termination. 


2. For CANCEL response or no console, job 
canceled. 


3. For IGNORE, NEWTAP, RETRY responses or 
informaticn-type messages, the next 
phase to be executed is fetched. 


$SBOCEM1 M 


ssaqes: 

4111A - NO VOL1 LBL FOUND 
4112A - VOL SERIAL NO. ERROR 
4113D(I) - NO HDR1 LABEL FOUND 
41144 - FILE SEQ NO. ERROR 
4115A - FILE SER. NO. ERROR 
4116A - VOLUME SEQ. NO. ERROR 
4132D - ERROR IN FILE ID 


4133D - ERROR IN HDR LBL 
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$S$BOCPM2 Messages: 

4110A - NO VOL1 LBL FCUND 
4112A - VOL SERIAL NC. ERROR 
4119A - FILE EXEIRED 

4184D - NEED FILE PROTECT RING 


writer phases perform the same function and 
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differ only in the messages written. Each 
phase writes, on SYSLOG, the appropriate 
message for the information it receives 
from the calling phase. The calling phase 
supplies as input a message number, a 
return address for each legal response, and 
the name of the next phase to be fetched. 
After the correct message and label 
information is written on SYSLOG, the 
volume serial number is saved in the PUB2 
table, then the message writers analyze and 
process the operator response and fetch the 
next appropriate phase. 


Diskette input/output files are processed 
by the Sequential Access Method. These 
files, defined Ey the DTFIU macro, are 
Either input cr cutput data files. 


A diskette file contains records that 
are processed from a beginning diskette 
address and that continue in sequential . 
order through the records on successive 
tracks, cylinders, and volumes to the 
ending address. 


A diskette file is contained within one 
or more sets of limits called extents. 
These extents are specified in the file 
label on the diskette for input files, and 
are computed and stored in the file label 
for output files by the open routines. The 
user can idertify the files to be processed 
through the // CIBL and // EXTENT job 
control cards. The records within each 
extent must ke adjacent on a volume. Only 
one extent is allowed per volume, but files 
may cross diskette volume boundaries. If 
the logical file consists of more than one 
extent, each extent is accessed in the 
sequence specified by the user. 


The data handling logic modules for 
files defined for logical IOCS by the DTFDU 
macre are provided by the associated module 
generation macrc, DUMODFx, where x is 
determined by the function of the file. 


Diskette files are opened and closed by 
logical transient routines that are fetched 
by the open and close monitors (refer to 
VSEZAdvanced Functions Diagnosis Reference: 
LIOCS Vclume The open routines provide 
procedures for checking each file before 
any records are precessed. The close 
routines provide procedures for terminating 
each file after all records are processed. 


Diskette files can also be defined for 
physical IOCS if the user intends to use 
physical IOCS macros (such as EXCP and 
WAIT). These files are defined by a DTFPH 
macro. In addition, diskette files can be 
defined by the device independent macros, 
DTFCP and DTFPI. These files are described 
under "LTevice Independent Files", 


Record Format 


Logical records in a diskette file can only 
be in fixed-length format. The diskette is 
initialized to 128-byte sectors; therefore 
the waximum reccrd size may not exceed 128 
bytes. The format of the record is 
specified by the user in the DTFDU macro 
instruction which defines the file. 
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DISKETTE FILES 


INPUT/OUTPUT AREAS 


The logical IOCS GET/PUT macro instructions 
allow the programmer to use one or two I/0 
areas and to process records either ina 
work area or in an I/O area. 


Using DTFDU, it is possible to logically 
block the individual records in the If/0 
areas by command chaining the input and 
Output operations. This allows logical 
IOCcS to read cr write multiple individual 
records when the device is being addressed. 
In subsequent discussions, the term 
"Chained records" is used to describe this 
method of reading and writing. 


When chained records are to be processed 
in an I/O area with no work area specified 
(or when non-chained records are to be 
processed in two I/O areas with ne work 
area specified), the DTFDU macro 
instruction must include the IOREG 
parameter. Logical I0cCS uses this register 
to specify the address of the logical 
record that is currently available for 
processing by the problem progran. 


MODULE SAVE AREAS 


If RDONLY=YES is included in the module 
generation macro, the module is reenterable 
and must never be modified by the froblen 
program. Each DTF referencing the module 
must have a 72-byte doubleword aligned save 
area associated with it. This save area is 
used by the module during execution. The 
address of the save area is passed to the 
module in register 13. 


If the module is to be shared by DTFs in 
different tasks, the module must be made 
reenterable. This is done by associating a 
unique save area with each DTF. 


For diskettes, the save area contains 
the user's general registers, switches, and 
other information needed ky the module. 
Figures 35 and 36 illustrate the format of 
the save area for each logic module. 
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DUMODFI - Input 


EL CED COUP NEES GELS caer? GRD aD ae REY CED Ew CED ee Ghee eee EE eee eo CED ERD ee ee Coe OR cD CREED SREY ED EE OES ED CE OED ED PED SEE EER SERIO EEP GN AED TS ES AE Ee GE Eee GE anes Cee ee CRS ee OEE sy 





























Byte | 0 | 1 | 2 i 3 | 4 | 5 { 6 i 7 | 
ane ass noc a SS er 
{ Displ. | | | 
{DEC HEX | | [ 
{| 0 0 | User Register 9 i User Register 10 | 
| (SS <s= SSeS = -----———--—-—--- | 
1 8 8 | User Register 11 ] User Register 12 | 
l (=== SSeS ee eee 
116 10 | User Register 13 | User Register 14 i 
{ (SSeS | 
{24 18 | Module Register 15 | Module Register 0 { 
{ [| SS ea ee SS | 
{32 zO | Module Register 1 we OUT XU PRU | | 
l (SS a ee = 2S Sea 
{40 z8 | Module Fegister 10 | Module Register 11 | 
[ (=e ee aa ae dae an ane 
{48 30 | Module Register 12 | Module Register 13 | 
( (Sa SS ee et 
[56 38 | Net used | | Not used | 
| ----------—---—------—--------- 4 --- ___---_--_-- -_--______—_- | 
{64 4OQO | Net used { Not used | 
es a a ee pee eee ee aN Renee nae ETL ERE ae et RS! | 








*Indicates to CFEN that no more DTFs are to be opened. 

**If ERREXYT=YES, bytes 32-39 contain the parameter list that includes the 
address of the DIF and the storage address of the block in error. 

Figure 35. CUMCDFI Save Area 


DUMODFO - Outrut 



































Bre a re Be EI eT RFR FAS LLP ee ee ea NOG eee. tf ee Pea ey a ee eer gee MEI Se ae Ie wat ah. en pec ee ee Seg eT Wane ate a nae 
| Byte | 0 | 1 | 2 | 3 | | 5 6 | 7 | 
(SSS ee a ee ee ee | 
{| Displ. | { | 
{DEC HEX | l | 
{ 0 0 | User Register 8 | User Register 9 | 
| -----------------—---—------- —} --____- ---__--____---___-_- | 
| 8 8 | User Register 10 i User Register 11 { 
| ----------------___-__-_------ ~—-----——- -- -- —---_------—----- | 
{16 10 | User Register 12 | User Register 13 | 
| (SSeS SSS SS eae 
{24 18 | User Register 14 | Module Register 15 | 
i (SSS << S SS | 
{32 20 | Module Register 0 { Module Register 1 ce | 
{ Sass SSS 
{40 z8 | X'FF* = | i Module Register 9 | 
| (== 55 SS | 
(48 30 | Module Register 10 i Module Register 11 ; 
{ = =< —————| 
(56 28 | Module Register 12 | Module Register 13 | 
{ (SSeS SS = 
{64 4O | Not used {Not used | 
a era eee ee eae eee See a aes eats 








*Indicates to CPEN that no more DTFs are to be opened. 
**If ERREXT=YES, bytes 32-39 contain the parameter list that includes the 
address of the DIF and the storage address of the block in error. 


Figure 36. DUMCDFO Save Area 
DIFCDU BMacro performed, defines the format of the record 


being processed, and specifies the storage 
To process a diskette file of data records, areas and routines used for the file. A 


the file must first be defined by the DITF table is then generated according to 
declarative macro DIFLIU (Lefine The File the parameters specified in the operands of 
for Diskette Unit). This macro describes the DTFDU macro instruction. Figure 37 

the characteristics of the logical file, illustrates the DTF table generated for. 
indicates the type of function being diskette files. 


128 LICCS Volume 2, SAM 


RES CED ECR SAE IAD NGD eR CMA EAD EY ERATED CES OED EE GTP IED CEES SELEY 


| Bytes* | Fits| 
reece! = 
{| O-1£ | | 

| (O-F) | i 

l ae I 

| 16 | O-3 |B*0000! 
} (10) | [ 

{ | 5-7 |B'O0O08 
[ | i 

| 17-19 | [ 

f (11-13) | | 

l ( l 

| 20 | [X°tAe 
[ (14) | 

| ; (x*21° 
i | | 

| 21 | Oo | 

{ (18) | 1-2 |B'00? 
l i 3 | 

[ | 4 {Bra 

{ f Ss | 

i f 6 ft 

i i 7 | 

I i | 

{| 22-28 | i 

| (16€-1C) | i 

i | | 

| 29 { }x"06°* 
f (1D) | t 

{ i | 

j 30-35 | IC'OOCHROO® 
| (1E=23) | 

[ | | | 

| 36-37 | | 

| (24-25) | | 

i I | 

l 38 i | 

| (26) | | 

i ¢ | Oo ff. 

| | 1-2 |B'O0O! 
l | 3 | 

I f 4 ot 

[ | S-6 { 

i | 7 | 

| | 

i | oO | 

( f 1.4 | 
[ { 2-3 |B'O0O! 
( r 4 | 

[ bs | 

l | 6-7 | 


Contents 


a 
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| Function 








{Command Control Block (CCB) 


ot used. 
= DTF relocated by OFPENR. 
ot used. 


a} 


Address of logic module. 


DIF type for OPEN/CLOSE 
(X' 1A! diskette file). 
(X'21" = DTPPH) 


Command chained file. 
used. 

Work area specified. 
used. 
Open; 0 = Close. | 
Input; 0 = Output. 
used. 


oO 


ae ane 
cet ft oct ott ct it 


oO 


Filename. 


—_ eam ame ome ee Se ae ome ae Se cee ae oom me eee cee ee OE ee oe 


|Cevice type code. 

1 (x'06" = 3540). 

{ 

{Address of HDR1 label in VTOC. 
{ 

{ 


{Volume sequence number. 


Open communications byte 
nput File: 
No more extents 
used 
Exit for user's EOF routine 
Next extent on new volume 
used 
Extent switch. 
put File: 
No more? extents 
Extents needed at Close time 
used ; 
= Next extent on new volume 
= Extent entered via console 
{Not used. | 


ce) 
Ho ct 


Oo 
ct il ct 


u 


Sul 
cot ol 


2a Zar walO awyooa Zale 


Figure 37. DIFDU Table (Part 1 of 3) 


en 


| 
: 
| 
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BEDARD ES TED CD AREY ED CTD ENED ES CD GES ESE AE EP ED GED A a CP CED a CEP 6D ane qa EP 











ae ipa tay naan an Se eon is ete re Selb rer ee oe a ee a ae eh ae eS ae ee ee ere eee aren 

| Bytes* | Bits| Contents { Function | | 
| man a nnn ff ne ae eo nan mn empresa mine me at eh S| 
| 39 | oOo | {1 = Extent bypassed before file opened 
| (27) i | | (input). | | 
| { O-7 | {Sequence number of current extent opened | 
| { | | (output). | : 
| l | | : ai 
{ 40 (28) | | {Sequence number of last extent opened. | 
[ { | | i 
1 41-43 | 1X*000000* j|Reserved. | 
| (29-ZB) | | i | 
{ | | | | 
} 44-47 | | jAddress of IOAREA1. | 
| (2C-2F) | | | | 
| ( | | | 
; 48-51 | | JAddress of last Read/Write CCW in chain. | 
| (30-33) | | { | 
i i | | | 
j; 52-53 | 1X¥*0001°8 |Lower record limit. | 
| (34-35) | | | | 
| i | | | 
j 54-57 | |X*OOCCOORR® jEnd-of-data seek address (last record + 1). | 
[| (36-39) | | | | 
{ { | | | 
|; 58-59 | | {Number of records in I/O area (used in { 
{ (3A-3E) | | |short chain processing). | 
| i | | | 
| 60-63 | 1X*OOFFOOO1® |Seek argument (OCHR). | 
| (3C-3F) | | | 
| | | | [ 
| 64-67 | | {End-of-file routine address (input) ; | 
| (40-43) | | {4x*O00* (output). | 
( | | i | 
{| 68-71 | 1X*OO4900TA® |Seek argument ccntrol field. i 
bf (44-47) | i i | 
| | I | 
{| 72 (48) | | |Command chaining factor. | 
| | | | { 
{ 73 (49) | | | Switch byte 1. | 
| ; oO | {1 = Not first entry after open. { 
| 1 1 |Bfor |Not used. | 
i ij 2 | 11 = In close routine (output). | 
i i 3 | j}1 = Error chain to be skipped. { 
| ij 4 | {1 = End of extent. | 
| | 5-7 |E*O008 {Not used. [ 
| | { | | 
1 74-75 | | | (Record size multiplied by command chain | 
{| (4A-4GBE) | | {factor) - 1 | 
{ i | | | 
| 76-80 | |X* FFFFFFFFFF*® |Seek argument bucket. | 
| (4C-50) | { | | 
I | | | | 
| 81-83 | 1x*000000° jReserved. | 
| (51-53) | | | | 
i [ i | | 
{| 84-87 | | {Instruction to load user's I/O register | 
| (54-57) | | | (or NOP). | 
( | | | | 
| 88-91 | | jAddress of current I/O area. { 
| (58-SE) | | | | 
| 





Figure 37. DIFLU Table (Part 2 of 3) 
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| ee (SO ED EE ED A ED EE URNS ED RD ETD AED ED CRETE RS ERD ERY GU EEEES GE CD GIES ape 


Fits | 
a fe ea me pee ee en me 


Bytes* | 


92-95 | 
(5C-5F) | 


96-99 
(60-63) 


100 
(64) 


101-103 
(€5-€7) 


i 

[ 

i 

| 

| 

| 

i 

l 

i 

| 

{ 

| 

l 
104 { 
(68) : 
105 | 
(69) 
| 

| 

| 

106 ] 
(6A) | 
| 

| 

| 

| 

| 

i 

| 

| 

i 

| 

| 


107 
(6B) 


108 
(6C) 


109-111} 
(6D-6F) | 


| 
112-119 | 
(70-77) | 


i 
120-127 | 
(78-7F) | 


{ 
128-135] 
(80-87) | 


{ 
136-143) 
(88-&F) | 


i 
144-xX | 
(90-Y | 

| 
X+1 | 
(y+1) | 


SOO SE WH 2 © 


Contents 


B*Q0000°8 


/x¥*OO* 


X'OO!8 


EtO! 


X¥* 0000008 


XY=143+8* (no. of CCWs) 
Y=8F+8* (no. of CCWs) 


RS CRC WEARS ERS EOI AEEDCIED GE GRD ame 


Sat 
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| Function 


SE) GERD OEPEDED CLES GE GES COED CE SEED CLP EEE OFS BATRA GREE ENS eS AD CREED ED EE TS SEP 





{Logical record size. 
Address of last byte of the I/O area. 


Ogical indicators. 
: ERROPT=address 

: ERROFT=IGNORE 

: ERROPT=SKIP 

ve) 


Address of user's error handling routine. 


ak dk od od ft 


CCW count (write command only). 


llowed operations 

Allow read commands 

Allow write commands . 
Supfress unit check on C4/C6 
used. _ . 


ek od od SD 
ou ott i» 


Oo 
ct 


Sector factor (X'00'=128). 


Reserved. 

1 = Write protect 

1= No feed at EOF 

1 = Check multivolume sequence 
1 = Multivolume file 

1 = Verify requested 

1 = C6s written (update ERMAP) 
1 = Read/Write security 

Not used. 

Not used. 

Feed CCW. 


Define ops CCW (output); 
8¥*00* (input). 


Seek CCW. 


TIC CCW. 


{Read/Write data CCWs; 1, 2, 13, or 26 
jRead/Write CCWs. 


7 Se 
{NOP CCW (output only). 
l 


EEE OMESRES APE EES GD COD TOO CD CS UN EP CETTE CSRS CUED <AEVE CENT ORD COED MTCC REED CID ERED SENHENDED eat cies a Secs Ss th encom mmc dls wise sah disc a i ei le en iach 


*Numbers in parentheses are displacements in hexadecimal notation. 


Figure 37. 


CIFCU Table (Part 3 of 3) 
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DTFPH MACRO (LCISKETTE) defined by a DTFPH macro. To define a 

| diskette file, the parameters specified in 
| . » . a the operands of the DTFPH macro instruction 

When physical ICCS macro instructions are must include DEVICE=3540 and 


used to process a diskette file with MOUNTED=SINGLE. Figure 38 illustrates the 
standard lakels, ard the uSer wishes to DTFPH table generated to define a diskette 
have the lakels checked, the file must be file for physical IOCS. 

ee ne og ee oe 
| Bytes*| Bits |Function | 
| mm a a re re at eee eran an ane anenmnemaweman | 
{| O-15 | |CCB. | 
| (0-F) | | | 
| | | | | 
| 16 i Oo }1 = Dequeve old volume extents | 
{ (10) | 1-3 |Not used | 
| ; 4 }1 = DIF relocated by OPENR | 
i | 5-7 |Not used. | 
| | | | 
{117-19 | }32x'OO! | 
| (11-13) | | | 
{ | | | 
{20 (14) | {CTF type (X'21"'). { 
( { | | 
{| 21 | {Open/close indicators | 
| { O-2 |Not used | 
{ i 3 }1 = Work area | 
] i 4 }1 = Not Version 1 DTF table type | 
| “2 11 = Open; O = Closed | 
| | 6 {1 = Input; 0 = Output | 
| | 7 |Not used. | 
| | | | 
j22-28 | {Filename (see byte 29). | 
| (16-1C) | | | 
| | i | 
{29 (1L) | |Device type code (3540 = X'06'). | 
| i | | 
{30 (1E) | |C'*F' = EOF indicator for DTFPH. | 
| ( | | | 
j30-35 | | (OCHROO) Address of HDR1 label in VTOC (output). | 
| (1E-23) | | | 
| | | i 
{36-37 | |}Volume sequence number. | 
| (24-25) | | | | 
| | | | 
i 38 | {Open communications byte. | 
| (26) | |Iinput: | 
| | oO {1 = No more extents | 
| | 1-3 |Not used | 
| | 4 11 = New volume or new extent | 
| | 5-7 |Not used. | 
| | |Cutputs: | 
| |} oO 11 = Ne more extents { 
{ { 1 11 = EFxtents for LIOCS at close | 
| | 2-3 |Not used { 
| | 4 {1 = New volume on next extent | 
| t. <& 11 = Extents entered via console | 
| | 6 |Not used | 
| | 7 11 = Check extent for minimum of 2 tracks. | 
aN a ee PN ne ee It SP a a SETA ERT TRE aE TE REN SA NORE RI 





Figure 38. DIFPH Table for Diskette (Part 1 of 2) 
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i aE a ae aA 
{| Bytes*¥| Bits {Function | | 
== = eS eS ee 
{| 39 | {Sequence number of current extent being opened.. | 
| (27) | | | 
{ | | | 
; 40 | {Sequence number of last extent opened (not a console extent entry). | 
1 (28) | | | 
i l. | | 
i { ; | 
}41-43 | |Not used. 
| (29-28) | | 
| | ! 
p44-47 | jAddress of IOAREA1. | 
| (2C-2F) | | l 
{ | [ | 
(4e-51 | |Not used. { 
| (30-33) | | | 
[ | | 
{52-53 | 1x'O00008 | 
| (34-35) | | | 
i [ t . | 
{54-57 | {Extent upper limit (OCHR). ; 
| (36-29) {. | 3 | 
| { | | | 
{S5E-59 | [Not used./ ] 
| (SA-3B) | | ; | 
| | a - | 
{60-63 | {Extent lower limit (OCHR). | 
| (3C-3F) | | 7 » 3 | | 
{ i | | 
| 64 | {Record number. 1 = Input, 0 = Output. | 
| (40) | | | | 
I ( | | 
{65-67 | |Not used. | 
| (41-43) | | | 
| l | | 
{68-71 | 1OCHR control bucket. | 
[| (44-47) | {OCHR = X'OQO4SONTA® for 3540 (output only). | 
| | | | | 
{ Vz { {Record number. { 
| (48) | | | 
{ ( | 
{ 73 | {X'80" - verify requested. | 
i (49) | }X¥'4O" - last volume on multivolume file (input). { 
| ; 1X'10" - multivolume file (input). | 
{ [ | { 
{ 74 | {Record size (maximum of 128). | 
| (4A) | | | 
{ i | | 
i} 75 i {Not used. | 
| (4B) | | | 
i { | | 
{76-80 | JOCHR bucket = extent lower limit and record number (output). | 
| (4C-50) | | | 
i [ l | | 
{81-83 | |Not used. | 
| (51-53) | | | 
Oc a a San cs ae sc i ans is cl em niga cc ec en il a a ies ns sem sm ln a a a a a a a ae he i 
*Numbers in parentheses are displacements in hexadecimal notation. 

Figure 38. CIFFH Table for Diskette (Part 2 of 2) 

MODULE GENERATION MACROS . (DUMODFx), and are executed in response to 


: imperative macro instructions issued by the. 
problem program. 
Logical IOCS provide a number of logical 
file accessing rcutines called logic The user must define his file by the 


modules. These modules provide an DTFDU macro and issue the appropriate 
interface between the user's processing module generation macro to process that 
functions and physical IOcS. They are file. 


generated by module generation macros 
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MODULES 


The basic modules are: 
e DUMODFI - fixed-length input records. 
e DUMODFO - fixed-length output records. 


The modules are generalized routines that 
work with one cr more unigue DTF tables to 
perform their various functions. Each 
module can perfcrm the required functions 
through the use of: 


e A work area (optional) 
e One or two I/O areas 


e Errcer opticns (if specified at module 
generaticr time) 


e ERET macro (if ERREXT=YES is specified 
at module generaticn time) 


e Chained or urchained records 


e RDONLY opticn (if specified at module 
generatior time). 


The cptions listed must be defined by the 
DTFDU macro instruction. 


Objective: To read chained or unchained 


records from a diskette file. 


Entry: From the GET macro expansion. 


1. To the problem progran. 


2. To ¢$BOPEN if end of data is reached on 
a diskette file. 


Method: This module reads chained or 
unchained records and makes the logical 
records available to the problem program in 


a work area if cre is specified. 


If special records, such as deleted or 
sequentially relocated records, are read, 
they are skipped (not passed to the user). 


If the EFRCET parameter has been 
specified, errers are processed as each 
chain is read. If ERREYT has been 
specified, additional errors are returned 
to the problem program for further 
processing. 


When end of data is reached on a 


diskette volume, a test is made to see if 
there are more extents. If so, the module 
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addresses the next diskette volume and an 
Svc 2 is issued to fetch $$BOPEN (to open 
the next extent for the file). If there 


are no more extents, an end-of-file 


condition is assumed. This module feeds 
out the last diskette, based on the DTF 


FEED parameter, and issues an SVC 2 to 


fetch $$BOPEN (which in turn gives control 
to the user's EOF routine). 


DUMODFO: PUT Processing, Chart UB 


ome am DS ED EP SED OS aD 


records in sequence on a diskette file. 


Entry: From the PUT macro expansion. 





1. To the problem progran. 


2. To $$BOPEN, if end of extent is reached 
on a diskette file. 


Methods This logic module writes chained or 
unchained records. If the user specifies a 
work area, this routine moves the logical 
record from the work area to the output 
area. It then updates the current I/O area 
address by the logical record size, and 
determines if the end of the I/O area has 
been reached; if not, control is returned 
to the user. 


When the I/O area is full, a test is 
made to determine if the current seek 
address is beyond the end of extent. If 
so, and if there are more extents, the 
following action is taken: 


1. The ERMAP record is updated if bad spot 
- records were written on the diskette 
because of an ERET RETRY situation. 


2. The current diskette is fed out, 
causing the next diskette to be fed in. 


3. $$BOPEN is fetched to open the next 
extent. 


If end of extent has been exceeded and 
there are no more extents, the following 
action is taken: 


1. The ERMAP record is updated if bad spot 
records were written on the diskette 
because of an ERET RETRY situation. 


2- $$BOPEN is fetched. 


If the ERROPT parameter has been specified, 
errors are processed as each record or 
chain of records is written. If ERRE¥T is 
specified, additional errors are returned 
to the problem program for further 
processing. 


Objective: To write any remaining records 


in sequence on the diskette file. 


Entry: From the close transient, $$BODIO4. 


block switch and determines if there are 
any logical reccrds to be written to the 
file. If so, the chain of CCWs to write 
the proper number of records is set up; 
then the PUT rcutine is given contrel to 
write the short chain to the file. After 
that the CLCSE routine regains control, the 
module switches are set off, and a branch 
is made to the FUT routine to exit to the 
close transient $$BODIO4. 


When a diskette file (DTFIU) is opened, and 
the file is or mere than cne volume, only 
one extent is processed at a time, so only 
one volume need be online at a time. 


Job Control accepts label information 
supplied by DLBL and EXTENT statements. 
Job Control stores this DASD label 
information in the label information area. 
S$$BCFEN prepares to read the label 
infcrmation from the label information area 
into the logical transient area, and then 
fetches $$B35400. 


The diskette open logical transients 
read the DASD label information into 
storage. The format of the DASD label 
information is illustrated in VSE/Advanced 
Functicns DASD labels. If the file is an 
input file, the open transients compare the 
file label informaticn with the DASD label 
information in the label information area 
to determine if the logical file is correct 
and if the serial numbers are equal. 


If the legical file is an output file, 
the open logical transients create file 
labels and write them in their appropriate 
location. Extent limits are determined and 
overlapred, expired file labels are 
deleted. 


When a file is closed, the close logical 
transient determines whether a block of 
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data remains to be processed. If so, the 
logic module is reentered to complete 
processing. The file labels are updated 
and rewritten if the file is an output 
file. Control returns to the clcse monitor 
or the problem progran. 


DISKETTE OPEN/CLOSE LOGIC 


Open Diskette Files, General, Chart 03 


When a diskette file is processed (DTFDU 
specified), OPEN initially takes care of 
the following functions: 


1. The standard label(s) on the volume, or 
on the first volume of a multivolume 
file, is checked. 


2. The first extent on the first volume is 
located and made available for 
processing. 


Logical IOCS processes one extent at a time 
in the sequence specified by the user's 
EXTENT statements. When logical IOCS 
detects the end of the current extent, it 
branches to the end-of-extent routine. 

OPEN then locates the next extent specified 
by the control statements and makes it 
available for processing. For each 
Subsequent extent used by the file, OPEN 
checks the standard labels on that new 
volume (see Charts UC and UD for general 
OPEN flow). 


If the file te be opened is a normal input 
file, the extents are read and checked as 
needed. The file labels are checked 
against the DLBL information. The open 
indicator for the file is turned cn and 
control returns to the user. 


For multivclume diskette input files 
using DITFDU, the extent cards and the 
multivolume indicator are used in 
conjunction by the OPEN transients to 
determine when end of file has occurred. 

If three extents were provided by the user, 
the following multivolume indicator 
combinaticn could occur: 
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(rn rn nw ee ey The file labels are checked against the 
{|Multivolume |Action by CPEN Transients | DLBL statements provided, to ensure that no 
{Indicator | duplicate or overlapping files are created 
| —~—-——-—-—————~—4—-~———-— — -—--_ --—— —————— on that volume. Labels are created and 

| written as directed by the DLBL 


| \,anything |Frocess first volume and 
i ~ | {issue warning message. 
{ 3 


informaticn, pertinent information is | 
posted in the DTF and control returns to. 


L,anything {No volumes are processed, | the user. _ Lo 
jissue permanent error 
|message.. 
{ 
C,\ {Process first volume and CLOSE Diskette General Flow, Chart 06 


| 
i 
{ 
| 
| 
| 
| 
{ 
| 
jissue permanent error | 
jmessage. | 
| | The close routine for diskette input and 
{Erocess first volume and | Output files causes any additional records 
| 
{ 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 


QD 
= 
* 


jissue permanent error mes- to be processed, any file labels to be 

{sage because file not updated, and the file to be indicated as 

| found. being closed. A compiler file is closed in 

| the same manner as an output file, except 
C,L,anything |Process through the "L" and that processing of additional records is 

jissue warning message. bypassed. 


C7 C,Cc {Process through the number If the file is an input file, it is 
Jof extents (no message simply indicated as being closed. Feeding 
| issued). of diskettes at close time is indicated by 
| the table in Figure 39. 

C7C4L {Frocess through the "L" (no 
|tessage issued). 

a cite i es a ee i ai sae cel da cs em ce aed din eo i dca ace leis oan 

$$B35400; Diskette Open, Initialization, 
For all other supported DIFs, processing Charts UE-UG 


continues until the number of extents is 

exhausted. Regardless of the DIF type, for Objective; This phase determines which 

system files prccessing ccontinues until all diskette open phase must ke fetched to 

extents are exhausted. complete the open procedure. It also 
performs basic initialization functions and 
reads and examines the DLBL/EXTENT images 
from the label information area. 


OPEN {Output Diskette) General Flow, Chart 
05 Entry: From $$BOPEN1. 
Exits: 
Each EXTENT card provided for a diskette 
relates to a different volume. Therefore, 1.2 To $$B3540I or $$B35400 to complete the 
each tire a new extent is opened, both open procedure. | 


volume and file labels must he processed. 
2- To $$BODMSG to communicate with the 
operator in the case of an error. 








see ee a ae Ned ae eS Se NT ee eee Cg ea tea ete ey Se gy ee a Se ee ee, ee TS Pe ee Oe Se — 
{ | Input | Output | Input | Output | 
| | Programmer { Programmer | System | System { 
i | Logical Unit | Logical Unit | Logical Unit | Logical Unit | 
|----—-----— -|-----—-——-— -Y -- —_—{|----——_--- 1 - OO | 
| DIFCE | A | A | N | A | 
(SSS 3= a —| 
| DTFrI | NA | NA | N | A | 
| a ee -_——— —| 
|  DIFDU S S | N | S | 
SS a ——| 
| DIFPH | A | A | N | A | 
(ree { 
{| A = Always feed at close time. | 
{| S = User can suppress feed at close time. { 
| N = Never feed at close time. { 
| NA= Not applicable. | 
a cs gst ie Sel ees engl ii esse cans sr ed ei el i es pe ih el dl i sci us ei al itp a nacido ale aooseaemmtemnantecmcesnncnsenmal 


Figure 39. This Table Indicates Diskettes Being Fed at Close Time 
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file to be opened is an input or output 
file ky checking the DIF, and then 
initializes to fetch the proper transient. 
It initializes the Open Table with the 
device characteristics and the DIB (Disk 
Information Elcck) address if the file is a 
system file. It reads the DLBL/EXTENT 
images for the file, and examines them for 
validity. 


ep a ow am aa ame a> 2 <n en a a a <<. ann aap am ep 


Objective: This phase is used to control 
the sequence of operations required for 
opening each file extent. It also provides 
an entry to the user's end-of-file routine, 
if specified, when the end of the last 
extent is reached or if the multivolume 
indicator in the HDR1 label indicates last 
extent for [CTFDU. Furthermore, it checks 
for the COBCL Ofen/Ignore function. 


1. To $$BOLIC1 to process volume labels. 


2. To $$BOFEN if the last DLBL extent has 
been processed and ancther file is to 
be opened. 


3. To the user's end-of-file routine. 


4. To ¢$BCLMSG for operator communication. 


and the DTF does not indicate open, this 
routine gets extent information for the DTF 
from the DIE. Ctherwise, both system and 
programmer units are handled identically. 


$$E3540I tests for the availability of 
DLBL extents. If no more extents are 
available or if the multivolume indicator 
indicates last volume, an exit is made to 
the user's end-cf-file routine. If the 
file has been ofened previously, the next 
consecutive DLBI extent to be opened is 
read. : 


If the COBOL OpenyIgnore function has 
been specified and the device is unassigned 
Or asSigned to IGN, the open is bypassed. 
If the device is assigned, open is 
continued. 


If the Open/Ignore function has not been 
specified and the device is unassigned or 
assigned to IGN, the job is canceled. 
Otherwise, open continues. 


This routine also determines whether the 
assigned device is the correct device and 
ensures that only one file is open on the 
device. If this is not the case, the job 
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is canceled; otherwise, this transient 
passes control to $$BODIO1. 


$S$BODIO1: Diskette Volume Label Processor, 
Charts YD-VE 


Objective: This phase reads the volume 
label and checks it for validity. It also 
ensures that the proper volume is mounted 
and requests further information from the 
operator if a secured volume is being 
opened. 


$B35401, $$B35400, and $$BODIOCB. 


a 
e 
=) KR 


eentry from $$BODMSG and BODSMO. 


1. To $$BODIO2 if open output. 
2- To $$BODIO5 if open input. 
3. To $$BODSMO if a secured volume. 


4. To $$BODMSG for operator communication. 


Method: The volume label is read from the 
diskette and checked to ensure that it is 
standard. Then the volume serial number is 
compared against the one provided in the 
DLBL (if specified) to ensure that the 
correct volume is mounted. If the wrong 
diskette is mounted, a mount message is 
issued. If the volume is secured, the 
security message writer is fetched. If 
open is allowed to continue, the proper 
input or output transient is given control. 


Input, Process 


“SSS 


Objective: This phase is used to read and 


process the desired HDR1 label and _ to 
handle data set security. 


Entry: From $$BODIO1 and reentry from 
$$BODSMO. 


1. Tc $$BODIO6 to initialize the DTF. 


2s To $$BODSMO if a secured file is 
opened. 


3. To $$BODMSG for operator communication. 


Method: The desired HDR1 label is located 
and examined. If the file is secured, — 
further qualification from the operator is 
required to allow the file to be opened. 
Volume sequence checking is performed if 


Diskette Files 137 


Licensed Material -‘’ Property of IBM 


the user has reguested that in his DTFDU. 
The extent limits are converted to binary 
and placed in the DTF table. This 
transient then exits to S$$BODIO6. 


Objective: To complete the initialization 
of the DBITF table and to validate the extent 
limits. 


Entry: From $$BCDIO5. 


1. To ¢$BOFEN to cpen the next file. 


2. To the user's next sequential 
instruction. 


3. To $$BODMSG for operator communication. 


Methods: The upper and lower extent limits 
in the DTF are checked tc verify that they 
are within the limits of the device and are 
correct relative to each other. The DTF 
open switch is set along with other 
Switches indicating the last extent and new 
volume. For system files, the DIB is 
filled in from the DTF table. 


of operatiors fcr opening each file extent. 
It provides for the entry of extents from 
the console, checks the COBOL Open/Ignore 
functicn, ensures that the assigned device 
is a 3540 on which only one file is open, 
and initializes the cpen frocedure for 
system files. 


Entry: From $$B35400. 


1. To $$BODIO1 to process volume labels. 


2- To $$BODIO8B to allow additional extents 
to ke entered from the console. 


3. To $$BOCMSG for operator communication. 


4. To $$BOFEN if the open processing 
procedure is ccmplete for this file and 
another file must be opened. 


5. To the user's next sequential 
instruction. 


and the DIF does not indicate open, this 
routine gets extent information for the 
file from the DIB. Otherwise, system and 
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programmer units are handled identically. 


$$B35400 tests for the availability of 
DLBL extents. If no more extents are ee 
available, the operator can enter more 
extents via the console. If the file has 
been opened previously, the next | 
consecutive DLBL extent to be opened is 
read. 


If the COBOL Open/Ignore option has been 
specified, and the device is unassigned or 
assigned to IGN, open is bypassed; if the 
device is assigned, open continues. 


If the Open/Ignore option has not been 
specified and the device is unassigned or 
assigned to IGN, the job is canceled; 
otherwise, the open procedure is continued. 


This routine also determines whether the 
assigned device is the correct device and 
ensures that only one file is open on that 
device. If not, the job is canceled; 
otherwise, this transient fetches $#BODIO1. 


$$BODIO2 
Extents 


WO-WE 


= Disket 
and Delet 


Objective: To determine the extent limits 
for the file on the diskette. To prevent a 
duplicate file being created, to delete 
both cverlapped and duplicate expired 
files, and to determine the new HDR1 label 
address. 


it 


try: From $$BODIO1. 


es 


xits 


1- To $$BODIO3 to create a new HDR1 label. 


2. To $$BODMSG for operator communication. 


h Two passes are made through all of 


R1 records. 


ct iz 


ethod 
he HD 


Pass 1. All HDR1 labels are examined to 
determine if the files are 
write-protected or unexpired. If 
either of these conditions exists, 
the file name is compared with the 
file name of the new file; if they 
are equal, the job is canceled. 
Otherwise, the open continues. 

The highest upper extent limit 
track plus 1 of any 
write-protected or unexpected file 
is made the lower extent limit of 
the new file. 


All HDR1 labels are reread and the 
first delete control record that 
is encountered (either read or 
written) is made the address of 
the new HDR1 label. AI1l 
overlapped files are deleted. All 
expired, nonwrite-protected files 


Pass 2. 


with duplicate file names area 
also deleted. Then this transient 
fetches $$BCDIO3. 


S$$BODIO3: Diskette Open Cutput, 
Create/Write New HDR1 Label, Charts WG-WJ 


Entry: From $$BCDIO2. 


1. To $$BOLIC7T to initialize the DTF.. 


2. To $$BODMSG for operator communication. . 


Methcd: This routine verifies that at least 
one complete track is available and that a 
new HDR1 label address was found. If 
either of these conditions is not met, the 
job is canceled; otherwise, the new HDR1 
label for the file is created and written 
out on the diskette. 


1. To $$BOPEN to cpen the next file. 
2. To €$BODIC4Y if Close needed an extent. 
3. To $$BODMSG for operator communication. 


4. To the proklem progran. 


Method: This reutine pests appropriate 
extent information in the DTF table and in 
the DIB in case cf a system file. 


Objective: To prepare a compiler of device 
independent DTF for a diskette file, so 
that normal diskette open phases can be 
used to complete the open procedure. 


diskette open phase. 


Method: Fields are initialized and CCW 


chains are moved into the DTF to make it 
usable for reading and writing diskette 
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files. Exit is to the open monitor to 
reconstruct the common open table and to 
exit to the proper diskette open phase. 


$$BODIO8: Diskette Open Output, Extents 
From Conscle, Charts WP-WOQ 


extent information from the console. 


Entry: From $$B35400. 


4. To $$BODIO1 to process a new volume. 
2. To $$BODSPV to display the VTOC. 
3. To $$BOVDMO to dump the VTOC. 


4. To $$BODMSG for operator communication. 


Methods This routine initiates a 'NO MORE 
AVAILABLE EXTENTS" message and reads the 
operator response from the console. If the 
operator does not cancel the job, a reply 
of §3540GO' is assumed, which indicates 
that a new diskette has been loaded. In 
that case control is passed to $$BODIO1. 


$S$BODIO4: Diskette Close, Charts WR 


Objectives: To allow the last block of data 
to be written, to provide end-of-file feed. 
control, and to indicate in the DTF that 


the file is closed. 


Entry: From $$BCLOSE or reentry from 
$$BODIO7. 


Exits: 

ls To $$B35400 to open a new extent. 

2. To $$BCLOSE to close the next file. 

3. To $$BODMSG for operator communication. 


4. To the problem program. 


Method: If the DIF refers to a system 
logical input unit, the DIF is reset and no 
feeding occurs. If the DTF refers toa 
programmer logical input unit, the DTF is 
reset and feeding occurs if required. If 
the DIF is a [TFDU (either system or 
programmer unit) control is returned to 
LIOCS to allow the last block of data to be 
written. | 


For all output files the HDR1 label for 
the file is updated to reflect proper end 
of extent, end of data, and correct 
multivolume indicator. Feeding, if 
required, occurs and the fTF is reset. 
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DESCRIPTION 
ree ai de adache A group of program instructions that perform 
* * a processing function of the program. The 
* R * i i lock. 
: P oceee ;: label, if any, is shown above the bloc 
* * 


REKEEKSEEKESEEEERES 


REREEBR ] REE EREEEE 
*LABELL BW* 
*—*—4—¢- 4-8 -4— 4-4 
* * 
* SUBROUTINE * 
* * 


SEEEKERKKKEKEREDSE 


REC] EKKKEEKS 

* * 
* * 
*, PREPARATION | * 


* * 
SEKKKKKEKES 


EEEKKD L EKEKEKEREE 
* & * 


* 
* *PREDEFINED * * 
** PROCESS * 
*€ * 
* 
¢ 


* € 


* 
* 
* 
SEEKEKEKEKKEREREE * 


* 


CEKELRERSEE EE ERED 


* 
INPUT/OUTPUT m 


SEKEKEKEKEEEKERKE 


o*. 
Fl *. 
o* *. 

o* *. 
*. DECISION * 
* * 
*, * 


*. .® 
* 


HERG 1 RRRERER ES 
* * 
: TERMINAL ; 

SHECEKERE REET ES 


SaEK 


tee 
ao 
N 

tte 


ceSE 


eens 
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* D4e 
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* 
FILINPT 
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*B2 
IF ANY ADDITIONAL EXPLANATION 
REQUIRED, ITS LOCATION ON THE 
18 IDENTIFIED BY AN ASTERISK 
THE BLOCK 1D. 


Description or title of a routine that is detail- 
ed on another flowchart. The starting label 
of the routine and the flowchart ID appear 
above the stripe. 


An instruction, or group of instructions, that 
changes portion of a routine or initializes a 
routine for a given condition. 


A group of operations not detailed in the 
flowcharts in this manual, such as user rou- 
tines. 


Any function of an input/output device or 
program, usually branching to an 1/O routine 
to perform the function stated in the block. 


Points where the program branches to alter- 
nate processing, based upon variable con- 
ditions such as program switch settings and 
test results. 


The beginning or end of a program or routine. 


On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The tocation in the connector identifies the 
block to which entry on a chart is made. 


Off-page connector. An entry from, or exit 
to, a given point on another flowchart. The 
characters in the connector identify the chart 
and block to which or from which control is 
passed. The corresponding label, if any, is 
placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
contro! is passed are listed nearby. 


SAM 


EXAMPLE 
*eeeee & REFERENCES 
* TO BJB4: 
* *% BRD4, ACB2 
* * BLJ1 


* READ * 
A RECORD 
* * 
CERRERERESEREC ERE 
i 
C4 “*, CERSEHCS 1088 SHES ES 
* *ERPTN * 
*. YES +— %—$—~ 4-4-4 ~ tH 
*. ERROR eX ecccce ee X* * 


° ° * ERROR ROUTINE © 
*, * * * 
*. .® SHERREKEEEKEEEESE 
* NO ° 
° x 
é eRe 
. * * 
x * 64 *® 
CREEK OARERERERE RE * * 
* * ekee 
* PROCESS * 
* THE RECORD + 
* * 
* * 
EKEKHRAAESEKEERERE 
x 
USEX15 o*. 
@, SHEKKES HKEREEEED 
- *, x * * * 
* USER *. YES * * * * 
*, OPTYON oMeccccceoe X® USER ROUTINES & 
x, o* * * * * 
*, o* * * * * 
*, .* SRSOKEREREREREER ED 
* NO ° 
eoXcocvcvvsecececesecneseceecsece 
x 
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e* RECORD *. YES * MNOTFY * 
*. ALTEPED eK eecccc ee X® POTNT * 
*. ° *™NSTRUC TIONS # 
*, * * * 
*e. .* SEKEREEEEED 
* NO e 
ERE 5 - 
* * . 4 
* G4 *.X. ° 
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Chart 01. Magnetic Tape Open Routines 


From Open Monitor 


Nonstandard Label 
Standard Label Standard Label Standard Label ’ and Unlabeled — 
Input Forward Input Backward Output Input/Output Work Files 


$$BOMTO1 


. Check volume 
label. 


. Check standard 
header 1 label. 












$$BOMTO2 


1. Read standard 
trailer labels as 
header labels. 


$$BOMTO3 


1. Check expiration 
date of header 
labels. 


$$BOMT05 


1. Set mode for 7- or 9-track. 


$$BOMTO6 


. Set mode for ~ 
7- or 9-track. 




















. Test for read backward. 
3. Input? 


YES oS NO 


. Test for rewind - 
option. 










. Write new header 
label. - 


. Compare to 
TLBL. 


. Check user labels 
in user routine if 


. Read volume 
label and header. 


. End of volume? 
































YES oo ae 
. Check expiration 





required. 4. Read tapemark 6. Exit to user date. 
4. Post file open. if unlabeled. routine to 
write non- 











5. Exit to user 





. Check user labels 1. Go to write labels , standard labels 
in user routine if in user label rou- beast teint Uta if specified. Sic 
required. tine if required. labels if present. 7. Write tapemark $$BOPEN - 
2. Write tapemark. . if specified. 


8. Post file open. 
. Post file open. 


Rea GcEN From Close Monitor 


$$BOMT07 


1. Write updated 
TLBL informa- 
tion on volume 
cylinder. 






$$BCMTO6 . 


1. If last CCW was 
a write command, 
write tapemark. 


SVC 11 return to 
problem program 
SVC 2 
$$BCEOV1 

2. Rewind/unload 

if specified. 
3. Reset PUB2 
OPEN bit if tape 
rewind/unload 
specified. 


* File type is determined by Open Monitor. 


OUTPUT FILES INPUT FILES 








. Rewind/unload 







. Write standard/ 







nonstandard if specified. 
labels if specified. 2. Set file status to 
2. Write tapemark. close. 






3. Reset PUB2 
OPEN bit if tape 
rewind/unload 
specified. 


3. Set file status to 
close. 


4. Reset PUB2 
OPEN bit if tape 
rewind/unload 
specified. 









Return to 
Close Monitor 
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Chart 02. Magnetic Tape Close and EOF/EOV Rout ine 


System Unit 


1. Close current 
SYSPCH or SYSLST 
output file by 
writing tapemark. 


. Rewind and unload 
initial tape reel. 


. Switch to alternate 
drive if specified. 


$$BJCOPT 


1. Open alternate tape 
assigned to SYSPCH 


or SYSLST by read- 
ing label /tapemark. 





SVC 11 Return to 


problem program 





| EOF/EOV Entry 











. Determine type and 
format of the file 
from its DTF table. 


2. Read //TLBL card 
image. Z 


3. Format open table. 
4. File type? 











1. Close tape reel in 
process by writing 
trailer label and 
tapemark. 


2. Write user labels in 
user routine if 
required. 








. Get alternate drive if 
assigned. 


2. Call appropriate 
phase to open files. 


3. Nonstandard labeled 
input? 


> 
SVC 2 
$$BOMT0O5 
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Input Forward 


1. Read and process 
standard trailer 
labels. 


2. Read user labels in 
user routine if 
required. 


3. EOF or EOV? 
EOV > EOF 





SVC 2 
$$BOPEN 


Input Backward 












1. Read header label 
as a trailer label. 


2. Read user labels in 
user routine if 
required. 









SVC 11 Exit to 
user EOF address 


Chart 03. Diskette Open, General Flow 


$$B35400 


Determine name of 
transient to call 


Entry from 
$$BOPEN 









Open system unit = Indicate DIB #0 





Read and check 
DLBL and EXTENT 
images 


Reread first extent 
record and save 
| address 





Input Output 


$$B35401 $$B35400 
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Chart 04. Diskette Open, Input Files 


Read and process 
i) | -VOL1 label 


$$B35401 Insure proper volume 


Check DLBL extents 


mounted and if, 
secure, that volume 
is accessible 


: | | | $$BODIO5 | 
NO Read HDR1 label 
More extents and compare with 
| DLBL 
YES | 


End of file? we Handle file security 


YES 


SetEnd crete | Handle all label fields 
SVC 2 fetch $$BOD!06 
$$BOPEN : 
Determine extents to 


be valid 









Put extent informa- 
tion from DIB into 
DTF 





More files to open 





YES 


Post extent limits in 
DTF 


If system file post 
DTB from DTF 





YES - §VC 2 fetch 
.  $$BOPEN 





(No 


_ SVC 11 return to 
problem program 
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Chart 05. 


Check DLBL extents 

















Open _ YES 
system file? File open? 
YES NO 


Fill in DTF from 
disk information | 
block 












More files to open 


NO SVC 11 return to 
problem program 


ES 


SVC 2 fetch 
$$BOPEN 


Diskette Oren, Output Files 






Extents from 
1052? 





YES 


Check COBOL ignore 





Read/verify volume 
label 


Handle volume 
security 





Pass 1: Determine 
extent limits 


Guarantee no dupli- 
cate write protect or 
unexpected file 


Pass 2: Delete over- 
lapped or duplicate 
files 
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Enter console 


extents 










Create and write 
new HDR1 label | 


Put extent informa- 
tion in DTF 









Post DIB if system 
file from DTF 


SVC 11 return to 
problem program 











More files to open 


SVC 2 fetch 
$$BOPEN 


Charts. 


445. 
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Chart 06. Diskette Close 







Entry From 
$$BCLOSE 


$$BODIO04 










Feed diskette 
if necessary 


NO YES NO NO 


(«2 » YES YES (4) 


(=) Return to LIOCS to 


Turn off open 


Jur write last record 
indicators 













Need 
new extent 
to write to 

ore files to close? record 


YES (4 
YES 


SVC 2 fetch | Open new extent 
$$BCLOSE Call proper phases 


NO 






SVC 11 return to NO 
problem program 




















Read, update, 
write HDR1 
label 





Feed diskette if 
necessary 
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Chart AA. $$ECUFO1: Open Unit Record (Part 1 of 2) 


seee¢ aioe 
* e 
ae, : o®e CHK PRTR a oe. 
SSESCHDA 2ESSASEEESE RE A3 e. AS *. AS *. 
BOSS A 14S0498E88. @GETPUB K2e o® @. e* *. ya OTF *. 
* $-$-6—$-+—0-4-8-¢ *® pasp |e YES -*” PRINTER *. NO -*” TYPE “#. YES 
* $$BO0UR01 #loevveceae Xe GET pPuB BeeveveeXt, e®oece Ke FILE eteccconecX*® es X*O7T® PRINT e®ccce 
¢ &: s ADDRESS * ee DEVICE ot e *, o% *, PS e 
$09909900804002 aa. %. o® ‘ *, * *, * pa 
$00002900090000068 e, 4 x *. ot *. .*t x 
*NO e00se *YES *NO +H 
e" *AB ®& 4 2 * * 
e o°o" « e * F5*% 
eXe @2e0 0208280268600 es eeee e ee ee e eeeeene aee ry J * * 
. @ @e2e82ee0@ e@ ee ee eae e wee ; e rs : eee 
ame x ABOVEFE: x xX 
CHKROR o*e a %e ‘ a*e CHKPCH o*e, 
61 *. 63 *, B4 Xe BS *, 
= = ES 0 .*°” print ** ES .#°” 3525 *° 0 «*” carn **e 
-* AR *. Y NO . *. YES « 3 *. NO « 4 
Re Reas R eteenceesconccescerXtecccseseseceoconnes te ONLY o*Xcccncccete PRINTER r eooekte BARC o* 
*. FILE o®# e * FILE e e o* ° *. TYPE o* 
*. e °e *, o* e o% e Re eo 
*, ot e %, o* , o® e *. o* 
*N o *YES *NO « *YES 
oe ie Be Ef @ e@ @e e e 
2 x = es ea eo 
e s C2 Cees e @ e @ 
e ‘ e ® e es e 
; ETOPNET. x x 2 x 
Cl °*. $ Nec oeseneee #403 6400049 C4 °*. e REC SeRSE RES 
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$$BCMFCE: OMR and RCE Open 
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‘Chart AF. CDMOL: 
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Chart AG. CDMOL: GET Macro (Part 2 of 4) 
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Chart AH. CDMCE: GET Macro (Part 3 of 4) 
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Chart AI. CEMCE: GET Macro (Part 4 of 4) 
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Chart AJ. CDMOD: 
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PUT Macro (Part 1 of 4) 


ERE eSRE 
+ + 
* AZ * ‘ * AY & 
* * 
REE HEE 
° xX 
X o%e 
RRAZKEEERESE AS *, 
*. * e *, 
* SET FIRST * «* PUNCH *. YES 
* TIME SWITCH * ¥. ERROR o®ecoe 
* ON * *. ° e 
*. o® e 
SEKSEKKSEEEEK e, xX 
. eNO “KEREE 
° ° *AL ©* 
° ° * OL1* 
° ‘sé * * 
e e * 
. ¥ ¢ LIC PNXXX 
B2 ee *EKEKKEBHZ KERKKKESEEEK SEKEEHGSESEKEEEEEEE 
o* * * MOVE EJECT * SAVE CCW * 
e* COMBINED *. YES * COMMAND CODE ¥* * ANDO rege * 
° FILE o¥scee * TO CCW * * CARO IMAGE * 
° *J2 Pe ° ; IF REQUIRED . : IF REQUIRED : 
F. ot xX REKKKEEEKKKEKEKKSE EK KEKKKRKKECEES KEKE 
*NO eEEEK e . 7 
° *AL * ° ° 
Py * A4&t . -e 
° * * ° ° 
gsapeseeenae * oe mX eo ecscassccccsecocnvecece 
X xX e 
#¥ SEC 3KKKEEEKEE EE SEEKER GERKKS KEKEKE e 
SVC 0 * LOAD RECORD ° 
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* PROGRAM * : IF REQUIRED : ° 
SEESSEKKEREKKEKEKE SKESKESSESREKES SEES EK e 
° x e 
erccnecveceveasaccesveeseceoa ke HECKE e 
° X *AK © ° 
eo o*, * Al* e 
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* x * o* e, _* e 
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* *. o* e 
SEKKEKEEKEKEKKEEKE *, ~* e 
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X e 
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RESTORE * ° 
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* CCW ADDRESS * ° 
TO CCB * ° 
SEEKER EECKESKEKEEES e 
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* FB Fee0 ° 
* e ° 
KEE x a 
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F3 e F4 e RKECKE SeRKE EEK ES 
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> NO .* SPECIFIED ®. YES *LOAD REGISTER 1* * RETURN TO. # 
Xeee*®e AND ERROR o#ecccoeacX® WITH JOAREA ®ecceceeeX® PROBLEM * 
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* FROM ADDRESS * ° 
: OF IOAREAL : e 
RAR ERE ERI ARES - 
eeEESEL eREKeEeKee Sf 
* LOAD ADDRESS #* ° 
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PUT Macro (Part 2 of 4) 
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Chart AL. cCDMOr: PUT Macro (Part 3 of 4) 
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‘ Bl  #. KESCKB IRE RERES SEEKER GESEEERE SE & #O4S6B5ESSEEEEEEE 
° e*ERROPT *, * LOAD KEKE ZEKEAE KEKE * GET I[QAREA2 € * MOVE PUNCH * 
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*, ot HEKESLEKE REERES ESS SERERERERE RE ERE SS CURERERESEES OEEREE 
*YES ° 
eHK ‘ ° 
* £ 4 ° 
AJ aoe ° 
* A4 ° e 
HEE . ° 
TUCPNXXX ¥ x 
SERKES) | EKKEEKEREE ¥EKED HERSEK SESE ESE 
* CALCULATE * 
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e e se 
* e e 
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" Gl s*e KEE EG 2 eee EE ERE 65 *, 
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° . 1/0 *. NO * *€ SVC_7 * * * EXIT TO * VES .* EOF *. 
° *. COMPLETE oMevecsecesX® * WAIT * * * USER S EOF BXecccccee*#e DURING A o* 
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: *. o* * * * * CEEEEREEEES BE OH *. eS 
. «38 HERE ERE ERE EE *. o* 
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e e e 
° X e 
e o*. e 
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: o* *, te SHECHSEEREEESEE 
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° *. ERROR oFeee eX* EL * PROBLEM * 
° *. o* * * PROGRAM * 
. *, o* ke HEKEERESESR SERED 
‘ ek 
° *NO 
* ° *J2 
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e* WORKA OR *. YES * EXECUTE * 
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Chart AM. CIMCLD: PUT Macro (Part 4 of 4) 


REKKK 
*xAJ *& 
* BL* 
* ox 
* 
X 
TSC3OXXX .*. 
Al *. 
o* ¥e iia hs es case 
e* SEQUENCE *. YES * vc 50 
¥*, ERROR aXeccccce oX* CANCEL : 
*. o* * * 
*, o® KEKEER KE EKEKEK EE RARE KEE 
xe 4X . * * * * 
*NO * B3 * * B4 * 
. * * * * 
‘ $eKS EAEE 
x xX X 
BEB LR KKK RHRKCKY AER KKK KKK HE ERRKEA GREEK EERE 
* * ; : MOVE Sonne * * MOVE SECOND * 
* SET FIRST * OF I0A * * LINE INTO * 
* TIME SWITCH * * INTO OTE * * OTF BUFFER * 
* TF REQUIRED * . BUFFER : id IF REQUIRED : 
KHEEK ER KE KK We Me eo KKH RRR K KEKE EE KEKE 
‘. RE e , = 
° * * ° ° 
s * C2 Kees e e 
ee * x 7° so e 
Py  RaREK ‘e x é 
x . xX o%, xX 
MH RC | ee ee eK Ke plas cab alah : C3 x, MERE GKEKEK EKER EK 
CALCULATE * 2% *. 
* EJECT * TOAREA ADDRESS * 0% *. YES * PUNCH * 
LAST CARD * AND BLKSIZE * *. FUNC = PW .*eecee A CARD 
* IF REQUIRED * : IF REQUIRED : wo Pog . * 
REEKKERKEKEKEKE KK He Me ee a KK KK x. 2% = REE AEKEKEKERKE 
e J ¥NO e e 
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Chart AN. ._CIFCN: GET Macro 
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Chart BM. CEMCL: GET Macro, Blocked Records 
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Chart BQ. ORMOLD: DSPLY and READ Macros 
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Chart CA. TFMOL: CNTRL and READ Macros 
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Chart:cc. S$$BOORO1: Open Optical Reader 
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Chart CF. PRMOL: PUT Macro (Part 1 of 3) 
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Chart CG. PRMOD: PUT Macro (Part 2 of 3) 
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Chart CJ. ETMCD: GET Macro, no Translation, and GET Macro, Translation, no 
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Chart CL. PTMOL: GET Macro, Translation, Shifted code, Undefined Records, DeVice=2671 
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Chart CM. FPIMOD: GET Macro, Translation and No Translation, Device=1017 
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Chart CN. PIMOD: GET Macro, Translation, Shifted Code, Fixed Unblocked Records, 
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FS ; 7 * INPUT AREA * * * * * ‘ *. 0% ‘ 
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oe e e * e es e e e 
° ° ° eeEX x ° Xx e ~ 
‘ X ¥ o%. X o%. ee X 
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7 * *x ; o* *, * SCAN 256 * RERKGEKEKKKEKKESKE eeSx 
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° e e * B84 * ° 
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° ¥. o% * * * 1/0 AREA * * * 
eo *, «¥ MH HE KK REKKHEKKK SE RM MK RR KH KRK HK KASH S RRKAKKCKKKKKEKKKKKEK 
° *NO ° ° e 
e s x s 
eeseesuwseKe **EK ES ‘s 
e * * * * se 
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Chart CP. PIMOD: GET Macro, Translation, Shifted Code, Undefined Records, Device=1017. 
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BEEKA ] EKESEEREE * SCAN 256 i <, 
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° *. .* 
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° x 
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NO ° o* ERROR e NO 
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*. * x e 
*YES eee : 
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*. ERROR KoccccceeX*e SPECIFIED . eeseoe 
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EX e ~ * 
* * 7 ‘* * BL* 
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* * EXIT * 
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Chart CC. EIMOL: 
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PUT Macro, No Shifted Code, Device=1018 


eeeH 
* * 
* AZ * 
* * 
eEKK 
x 
0%, IJEORSTR 
A3 *,. EERKKAGKEREKEEEEE 
* . * RESET RETRY * 
o* WRITE *. NO * COUNTER_IN ¥ 
X. ERROR oFecce eee eX* OTF SWITCH * 
° ° . * BYTE * 
*, * * * 
*, .* ‘ EKEKKEKKEKEKKEEEKE 
*¥YES RK KK ~ 
. * * ° 
e * A4 * ° 
. * * ° 
os KKK . 
X x 
KEEKKHZRREKKEKEKE SEEKER GEEKKE CREEK SE 
* * x * * * 
* & x * - RESTORE * 
x & FETCH * % * CHANNEL * 
* * $$BERPTP * * * PROGRAM * 
ke & = * * x 
REAR RKKEK GE REESE RARE ERK KEE ESE K 
x e 
o*, x 
C3 *, REKKKC EEK KKEKKE S 
* *, * * 
o* LOGICAL *. YES * EXCHANGE * 
° ERP oFeece * T/0 AREAS * 
*. PROCESS .* ° * * 
x, o* e * * 
*, * xX REKKERAKRKKKSEKEKEK 
*NO KKK ia : 
e * * ° 
e * Jl * ° 
e & * e 
oe KEK = 
e IJEQIGN x 
SEEKER H DEREK KKK > EKKEKDH GERKEKEKE KE 
* * ‘* * * 
* TRANSLATE * e * GIVE USER * 
* fe] * < * * 
: CHARACTERS : . : INDICATION : 
eR RK RE EH Pe Ree RKKEKKKKKEKE 
° ° x 
x xX o%, o*, 
EKKEREDKEKREEKEKEK RE FREER KK E4 *, E5 * 
* * * * ° *, ° *. 
* COMPUTE + * SET ON * o* ERROR *. NO o* TwO *. NO 
* * * WRITE ERROR * %e SWITCH eXcccccceeX¥®se [1/0 AREAS  c¥eece 
* SEGMENT * x SWITCH * ° ON e ‘ *. ° ° 
* * * * 3 ®, o* e 
MK KK KKK EK RKKEEKEKK KE *. «€ *,. o*€ e 
: ; "eV Es YES : 
e e ° e e 
° e ° e e 
X ° e e e 
we . . e Pe 
* * ° e e e 
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* * PS e SEEKESHRAEKKESEKEEKSE e 
RK } - e 
° ° WRITE e 
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e 7 KEEEEKKEKEKEKKEKE e 
e ° e e 
e e oXoccceccsesece 
: x : 
KRKEKKGOKEKEKEKEKE G3 x, REG EKER KK KH x 
* * eX CCB x, * * KEKKGHSKSEKEKEKEKE 
* UPDATE * NO .* RESIDUAL *. * SET OFF * * RETURN * 
* ‘CCW EX cccseseXe COUNT o% * ERROR * * TO USER * 
* e ZERO ° * SWITCH * * * 
* * *, o* & * REEKKKKKEKESEKE 
RRR KKKRK K KER EK EK *. * REKKREKHEK EK 
° *VES ° 
x ° e 
KEKK e * 
* * x x 
* HL * [JEGLCCW .*. o*, *. 
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me kK e o* . oo *. 
o* LAST *. YES o* USER *, NO e ERROPT *. IGNORE 
*, CCw OF a*eooe ° ERROR eKencvcceerX*e SPECIFIED e%ecee 
*. (CHAIN .* ° *. ROUTINE . ° e ° 
*, e e Re. * *. e e 
*. .* x ee a ¥ *. .* x 
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xX x ° 
REEEK ZEEE KK EEE KEKE GREKEKSEEKSES x 
* UPDATE * * & EEKK ISKEKKEK EKEKS 
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* ADDRESS * * * * 
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weKK Py 
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ERK * * 
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Chart CR. ETMOL: PUT Macro, Shifted Code, Device=1018 
CHEK EEKE 
¢ * * * 
* AZ * * AG * 
* * * * 
EK RE K 
IJEOEXIT x xX 
REKKKAZRERKKEKKERE EREREAGECKEEERKEE 
KREKA LL RKEKKEEEK * * * * 
* PTMOD * * TRANSLATE ¥ * TRANSLATE * 
% PUT MACRO * * THE SEGMENT #* * THE SEGMENT * 
* OEVICE=1018 * * =—F REQUIRED * * =F REQUIRED * 
RHEKKKEEKEKE SSK EK & * * * 
. KEEKKERKEKETHEKERSE RKKEKEAE KK KK KEKE S 
xX x x 
KEKEKE LR KKKESK RRECKB ZRSEKREKEKEE EK REED AKRKE RE EK ESS 
* x * CALCULATE * * * 
STORE * * . LENGTH TO * *CHANGE CURRENT * 
* SPECIFIED & * BE WRITTEN * & SCANNING * 
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7 Cl x, RERHEC DKERKESE EK BERK ZRKHEKREKE EK C4 ae REKEKC 5S RHE KERSE ES 
° 0% * * * & o* *, * MOVE ON _ * 
° ° 1/0 *, NO * * Svc 7 x & * o* - SPACE *. YES * CHARACTER TO * 
* *. COMPLETE eoKeccceceeX® * WATT * * WRITE *. AVAILABLE .¥cecceeveeX*® THE RIGHT AND * 
° x, o* * % * * *.FOR MOVE .* * INSERT SHIFT * 
e *. * * * * x *, o* * CHARACTER 
3 * Ak EREKERKKEKEREEKESKE RHEE KEKE KE KEE *. yt RECKEKAEKEKKEKESRE 
° *YES * NO ° 
oe eo CoecsecceseccccecvccesesecarXxeXecvcnccencs . 7 e 
: x : A : . ‘ 
‘< WREAK) | RK RR ee RRKEKY DEREK KK 03 . A ERKTEY GEEK HKERERE KHKKAYD HKEKKKKERSSK 
° * * SVC 2 * + * * * * 2% x, ° * CALCULATE SET UP 
° * * FETCH * * * x SVC 7 * * NO .* 1/0 s ° * LENGTH TO BE * * REMAINING * 
e * * $$BERPTP * * * * WAIT ¥ EBXccccccee*e COMPLETE o*® ° * WRITTEN AND * * LENGTH AS * 
° * *€1F REQUIRED® * * * * * %, Py e * UPDATE * * SCANNING * 
* * * * & * * * * *, * ira * CCW * LENGTH * 
is WR ee ERK RRR K So OK RRO RK RK + «% z REEKEEKKEK EKER KS EKKEHKKKKECKECEEE 
2 ° *VES 2 a e 
e 2 e e es xX 
s e e e ° KEK 
e X . ° ° * * 
° o*. xX e« IJEOWRTL x * H2 * 
. El *, REEBK EZR KKK AKER SE é KEKE GRRE KE * * 
i * *, x & SVC 2 * é KES, 
eYES «* LOGICAL *. x * FETCH *x * ° 
weearts ERP o* * * $$BERPTP * * ° WRITE 
*PROCESS ING. * : pis REQUIREDS m4 e 
x. 4% Me te ee a EE Ee < ERE RE SEEKS KSK 
*NO e es A s 
° e oe weccecvcccceXaXecsscccncesensececseceseesee 
e x e e e 
x eo, es 2 o%, > 
KEKRKE | KKK RHEE EH F3 *, ao: é F4 * EREKEE SREKEKEEEEE 
* * * * ai ie o* x x * * * 
* RESET RETRY * e* LOGICAL #*. YES.e «- o* 1/0 *. NO * * SvC_7 * * 
*COUNTER IN DTF * ERP oXeaes © *. COMPLETE oF eccceeeeX® *& WAIT * * 
* SWITCH BYTE * *PROCESSING. Ps ° o* * * * * 
* * x, * me *, % x * * * 
RERKRKK KEK AE KEK EEK *. .* 7 ke Ok SEKERKEKAAEKHEKRESE 
® *NO ° *YES 
x ° ° ° 
oe xX ” Xx 
61 : WAG 3k ak ek 5 KEK KAG GRRE REE EK 
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o¥® OTF e NO * SVC 6 * * RESET RETRY * e * FETCH * * 
®. FOR SHIFTED .*.ccccee oX® FETCH * * COUNTER IN x * * * $$RBERPTP *« * 
*,. CODES . $$BCNCL * * OTF SWITCH * ° * *—F REQUIRED*® * 
*, * KERR AEE RE * BYTE * if x & * * 
ee ERKKEKKEE AK ‘ REEKKK EEK KEKE E 
*YES * ° ° 
6 kee ; bs ; 
e * * e a s 
eo * H2 Xeee s eo = 
. % *% @« 2 J e 
6 ee ‘ < ‘ X 
x IJEORCLN xX IJEOEND x e o*, 
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* CALCULATE * * SCAN -ALL * * EXCHANGE 1/0 ¥* e o* *. 
* AVAILABLE * * CHARACTERS * * AREAS AND * eVYES 2* LOGICAL *. 
* MOVE SPACE * oe eX ON ONE OR % * GIVE USER * eccerte ERP o* 
* SET LSCAN * ° * MORE REQUIRED * * IOREG * *PROCESSING.* 
* AS SC. TABLF * e PASSES * INDICATION * *, o* 
SHREKKKEKEKEEEKKKE é RHA K KEKE REKK HK E RRERRK RAKE KK KK KE EK x, OF 
e 2 e .@ *xNO 
* 2 x se e 
X eI JEOP256 .¥*. ° X 
HOY [ek eo ee & e J2 x, x ERI GKEKEEES 
* . SET FSCAN * é * &. RREK ZR ERE K * * 
* AS CURRENT * ° «* CHANGE *. NO * RETURN * * RESET RETRY * 
* SCANNING * ° *, STATUS oXceee * TO * *COUNTER IN DTF # 
* TABLE * ° *, FOUND. ° * USER * * SWITCH BYTE * 
* [IF REQUIRED «* i; a % : RKKEREKKEKEREKE * * 
BHKK ECHR KREKKKSE SE * *. 4 * x RK RK OR RE Se 
e ° *YES KKK ° 
€KKK = a Fe * * é 
* * e . * AZ * ° 
* Kl eae e e * * es 
* = . . ERK % 
KEKE ~ é é 5 
X e 1 JEOCHNG x 
SHREK LRECKEKREE EE * WERKE KDR EKE EK KE RRR ECRK G KER EKER E 
* STORE SHIFT * e * CALCULATE * * OVE * 
* CHARACTER * ° * SCANNED AND # x REMAINING * 
* AND RESTORE ®ecvees * REMAINING * * LENGTH TO * 
*CHANNEL PROGRAM* * LENGTHS * * THE LEFT IN * 
x x * * * 1/9 AREA x 
EREKKK KEKE KES HHH KH BRERA KEKE HEH REE EE AE EE KE EKER 
xX x 
SSEKK $k & 
* * * * 
* A4 *® * KI * 
* * * 
RHEE RK 
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Chart DA. MIMOL: CHECK Macro, Work File 
e#eESK 
* * 
* AZ * 
s * 
KEK 
x 
£KEAZKKEEEEKE 
EEKKEAL KERKEEKES * SET * 
* MTMOD * *UNRECOVERABLE® 
* CHECK MACRO * 1/0 ERROR 
* “WORKFILES * BIT OFF #* 
SHKKEKEKKEE KEKE *IF REQUIRED 
e REKKKKAEK EK 
**kKX% e ‘* 
* e . 
* Bl Feeve e 
* e @eaenmeeonvaeneeoneecaeevneeaeasveav eee @ e 
eKKE * e 
IJFWCHEK 2 #. x 
BL *, REKEKLYAKEKKEKKEEE RRKEERZIREKKEAEKK 
o* *. * * * * * 
.* 1/0 *. NO ** SVC 7 # & * GET ADDRESS 
#. COMPLETE ec ececcceeX# * WAIT * * * OF ERROR 
Py é * * * * 
x, o* * * ¢ & 
Ke Se MEEK EKEKKSE KE KEK REKKKKKKEKKEKEKEEK 
*VES 
@ e 
x x 
SKEKEEC LKKEEKEKKEK URES FEKESEEESEE 
* {LOAD AND * GET ADDRESSES 
* DECREMENT * *OF BLOCK, DTF 
* BLOCK COUNT # * AND PARAMETER 
* BY ONE * * LIST 
* IF REQUIRED * * IF REQUIRED 
SEKEKKKKKEKKSEKEKEKEK RKKRKKEEKKKESEKKKE 
a es 
° e 
se e 
x IUJFWNRXT XX 
SREKED 1 EKKESEKKES REKKEDNZEKKESEEKES 
* INCREMENT * *TEST FOR OUTPUT 
* BLOCK COUNT * * TO SET CoC. 
* BY TWO * *AND GET PROPER 
* AND SAVE IT * * AODRESS IN 
* IF REQUIRED *# * REGISTER 1 
SKKKKKEKEKKES EKKAKE SEKERKKEKKESEEKEKEK 
e e 
*. e 
: X 
x I JFWOUT o¥. 
SKEKRKE | KEKEESKEKE —E3 e 
x * KEKE E 2KEEKKEKRE SE o® *. 
* GET USER * * EXIT TO USER * YES .* 1S : 
* EOF ROUTINE * * ERROR ROUTINE ®Xecccecce%e. CONDITION « 
* ADDRESS * * VIA REG. 14. * - CODE. 
* * KREKEEKKEKEKERES *OUTPUT.* 
SRKKEKEKKEKEKKSE KEK *. .* 
: *NO 
e e 
a s 
X , 
o®. x 
Fl *, EXEREE ZEEE SESE 
o* UNIT. *, RKEEE 2EKERESE EE * * * 
o* EXCEPTION *. YES * EXIT TO USER * * * EXIT TO # 
« BIT ON IN c#eccccces EQF ROUTINE # * USER ERROR # 
*, CCB. VIA REG. 14 *# * © ROUTINE * 
x, o* KEKEKKEKEKESEKEE * * 
0% ERG HEEEEREREEED 
*NO 
e 
e 
x 
o*. 
Gl *, ; 
o* 1/0 *, EKEKG 24 EKEKEEEK ES 4EEEG ZEKE EKES KE 
«* ERRORS -*. YES * RETURN TO. #* SVC 50 
#. OR ERRORS c#ecececeeX® USER VIA * * RETRY NOT 
*. IGNORED . * REGISTER 14 * * D 
. * KHKSKKKKEKKEEEKE SEKKEKEEKEKKEEEEK 
*. * 
*NO 
e 
As 
Hl *, CREE AESEHKEREKEREE 
* USER *, 
e* ERROR RIN *#. NO * SVC O SKIP. * 
*¥ADDR. SPECIFIED*#eccceeeeX ERROR BLOCK 
*. IN OTF oe x * 
ee, KKKKKKKEKKEKKKEKELK 
*YES é 
e e 
e es 
3 x 
‘ kes 
e * * 
x * BL * 
SRERB) 1 CEKEEEEEEE 
* * KEK 
* GET ADDRESS * 
* OF ERROR * 
‘ ROUTINE : 
SHCKEKSESEEKSEKEERKE 
J 
*K2 
: DTEMT MACRO 
x PARAMETER OPTION - 
$e, DECISION DOES NOT 
Kl *, APPEAR IN AN 
e* ERROR *, ASSEMBLY LISTING. 
o* EXTENSION *. NO 
*.SPECIFIED IN o®eoce 
*,. MODULE .# ; 
*, €K2 o® : 
*. ot X 
*VES eee 
e * * 
. * AG * 
xX * 
Ps 3 FE aX 
* * 
* AZ * 
* & 
eee 
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€EtK 
* * 
* AG * 
* * 
HEKE 
x 
RERKEEAGKEEEEEEKEES 
* * 
* LOAD ADDRESS * 
* OF ERROR * 
* * 
* * 
KEKRKEE KEKE EE ERE EX 
e 
: 
* EHRKEB AGREE EKER ESS 
* * * * * 
* * * EXECUTE *% * 
* * *USER ERROR & * 
* * * ROUTINE * * 
* * * * & 
* ERERGEE EEK EE EEEKS 
e 
X 
* REERKC GECEEE EERE E 
* * * 
* *RESTORE MODULE * 
* *REGISTERS 1-15 * 
* * * 
* * * 
* REE KKEREEEEEES 
xX 
* EKER AKER EEEREE RE 
* 
* * $VC_O SKIP * 
* ERROR BLOCK 
* * 
* 
* EREKEEEREREECEERE 
x 
ERE 
* * 
* Bl] * 
* * 
ECE 
x 
* 
* 
* 
Kecccccsecevecvesee 
* e 
* e 
* ° 
X 
o¥. IJEWIGNR 
G4 *, 
o *REENTRY*. eeKe 
* RETR .* MODULE TO *. IGN * R 
BX ccvcvccsetes KIP, IGNORE 3 o# 2 coeeeoeXt U 
e OR e * RE 
* RETRY.* KKK 
*. o* 
*SKIP 
IJFWSKIP =X 
REEEEHGRERSEREERE 
* * 
*RESTORE MODULE * 
#REGISTERS 1-15 * 
* * 
KREEREEKKEEEERERE K 
: 
e 
: 
KEKKAKEKREEEES HE 
SvC 0 SKIP * 
ERROR BLOCK P 
EKREKEK EE EEKERE EEE 
x 
KEKE 
* * 
* Bl *& 
* * 
ete 
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Chart UCB. MITMOLTs CNTRL Macro 
eek 
* AS *® 
Ps ots 
x 
PESENTS aXe 
RRESKA LKEKEKEEEKE RHEKEAZEKKKEKEKES ° Re 
* MTMOO * MTMOD NO .* SPANNED ¥*. 
* CNTRL MACRO #*# * CNTRLE MACRO # sooek, RECORDS ° 
* FIXED/UNDEF * ARTAB * ° *. o* 
WEREKEKKKEKEESES SREKEKKEEKEK KEKE . e eX 
e = e oe o*¥ 
° . e *YES 
eXevevaccenececseecsesesene a K 6-066 616 0.601 6.6 616.610.6656 6S w.0.0-0.8 e es 
x ° x e e x 
IJF CNT a ®. e [JF CNT o*, ° ° o*, 
B HEEKSEYAKEKEEKR AES B3 ° EEKKEREKEKEKSE EEE ‘ B5 *,. 
é *,. * * x & . ~ x & * * e ‘a *e 
o% 1/9 *. NO * * SVC 7 * * e 1/Q *. NO * * SVC _7 * * e NO .* e 
*. COMPLETED e®eccceeeeX® * WAIT * & *,. COMPLETE oFerccccceeX*® ¥* WAIT * * oXeek®e INPUT o* 
*, i * * * & a o* * * * ¢ ‘* e e 
*, o* * * * * . o* * ¢€ * * < *, Py 
*, .% MH RRM RE KKKK KKK eae KEKSEKKEKKEKKKKKEE és *, * 
*YES #YES ° *YES 
e J ¢ e 
° xX ° xX 
x o*e e o%, 
REC] HKKEKKE C3 *, ‘ cs n. 
* MODIFY o* *E4 *, REESE 4 KEKES EKEE ‘< o® *. 
*COMMAND COOE * YES .«* RECFORM e * RETURN TO * XYES .* CONTROL #. 
* IN CCW AND ecee *.= SPNUNB AND .* * USER VIA EX cccccceeks AFTER o* 
*SAVE RES IOUAL* ° *. SPNBLK . * REGISTER 14 *& *. RELEASE .* 
* COUNT * ‘ *. SPEC .* EKKSKEKEKKEEESEE *, me 
eKKKKEREK KE é €. .& *,. .* 
° e *NO *NO 
eKEE o 7 . ~ 
* * . e s e 
* OL *.e6 ° » e 
* * e e a) e 
eK BY = x . 
x ° o*, x 
REKED |] SERKKEKREREE a D3 *. RED HKEKKEKES 
SVC _0 ° o* ° * TURN ON # 
* PERFORM * ° e* LCGICAL *. YES CONTROL 
SPECIFIED ° *, SPACING oe Xeeee * SWITCH * 
* OPERATION * ° es ae ° *. IN OTF 
RSEKKKEKKSKKEKKERE Pe *, xX KEKKKEKEKKESK 
e e *¥NO EK " 
e ss ‘ * * 2 
Py e ° * AS * ° 
) se e * * a 
eXeseccccecccecsencecesecens ecccscccesseXxe eeEK 2 
: : x , 
El x, HEKKKEPKESEKEK KEKE SEKKKE ZRKKSECEKSE KH REKKEESEKEKSCEEKES 
o* * * € * & + CHANGE * FE4 * CONVERT FSR *® 
o* {/ *, NO * * SVC _7 x * * COMMAND CODE * DTFMT MACRO PARAMETER * INTO READING * 
*. COMPLETED  .¥ecacceeeX® * WAIT * & * IN CCW AND * OPTION - DECISION DOES *FORWARD AND BSR* 
*,. ° * * * & * SAVE RESIDUAL * NOT APPEAR IN AN * INTO READING * 
° o* * * * ¢ * COUNT + ASSEMBLY LISTING. BACKWARD + 
*, 4% MEK KKKEKESEEK EK KEK SRRKKKKKKSE SK HES KEEK KEEKKKKKEKKEREKK ES 
*YES ° e 
e x e 
‘eg Ee Os ° 
° * * ° 
X * Dl *® xX 
SKKEKE HECK EKEKE * * SEF HSKHEEKEREK 
* RESTORE * CEES 
* RESTOUAL * INSERT NEW * 
* COUNT AND OLD * * COMMAND CODE  * 
* COMMAND CODE * ie ccw 
SEEARKKKSEKREKEKK EEK KEKKKEKKEREK 
e x 
eo o%, 
X G5 *, 
RHKEG | KEKE ES BEER IECEKKEKKE oe ®SPACING*. 
* RETURN TO * * MTMOD * e* IN SAME *,. YES 
* USER VIA * * CNTRL MACRO # *.DIRECTION AS .*ecce 
* REGISTER 14 * * ‘WORKFILES %. READING « ° 
ReKEEKKKRE KEK EKKSE EXKKKEKKREREKEKE *. o* se 
s *, o* J 
° *NO Py 
TJFWCTL x x e 
KKH ZRKESEKKE KEKE OH ERKKEKEEREKSE e 
* * * IT JFSCNTV OK* ° 
* MODIFY * ——$— €— €-— kk -—4-—F—K = 
& COMMAND CONDE #* * SET DEBLOCKER # ° 
* IN CCW * * FOR CHANGE * ° 
* * IN DIRECTION * ° 
REKKKKKKEKE SKEKKKEKEKE KEKEKE es 
X x e 
SEE IZKECERSEKRE KE RE IHKESEKEE 7 
SVC * * ° 
* PERFORM * * TURN OFF * e 
SPECIFIED * FIRST TIME * e 
* OPERATION * *SWETCH IN Orre ° 
RERKSKKKHERRKKE KES KEEKEKEEKES = 
e oXevesececcecce 
oXecccccceccacsececssesseeore KEKE 
x ° *00 * 
o*, . * B2* 
K3 a SRREKK GHEE EEK SE _* *€ 
WRKKK DHE KES HH 7 Re x * * *€ * 
* RETURN TO * YES . 1/90 *. NO * * SVC_7 * * LJFSGETS 
* USER VIA EXceccccee*e COMPLETE eXeaccceeeX¥ * WAIT * * 
* REGISTER 14 * . ° * * * * 
KSRESKCEKREKKEKKEX *, * * & *x x 
Pe SKEKKREKEKSE KE KKKS & 
* 
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Chart [C. MIMOL: FEOV Macro 
HKKKALEKEEKSEKEE SEKEAZEKESSEEEESE CEKEAGKEKKEKECEE 
* MTMOD * * 1D * * | MTMOD + 
* FEOV MACRO. * * FEOV MACRO *# * FEOV MACRO. # 
* F Pe A * * UNDEFINED *& 
RKEKKEKEKEKEKESE KKEKKKKKESEKSEKKE SHKKSEKKEKKKKSE KKK 
& . s 
e e e 
IJF FEO x 1JF FEO x IJF FEO x 
EB |] HSE KKKE SEVZRKEKKKK REBSKEEEC KE 
* * * * * : * 
SET FEOV * TURN ON * * TURN ON” * 
* BIT IN * * FEOV BIT * *  FEOV BIT * 
*, OTF ON ¢ * IN DTF * * IN OTF * 
SEKEKEKKEKEKSE KEKEKKKEEHESE KK RRR RKSE KK KK 
aKEK ‘a *eKX e e 
* ; * * ¢ : 
*0L #0. *DR Bese x 
* KL*® rs * B3*% * KKK EK 
t*e&ue% ‘* eeKH Pe *OuU * 
JF FEO2 Xx [JF EQFV x * E4¢ 
HEC 1 EKEKKEE HEC ZFKRKEK EK * * 
* * * * x 
* TURN ON * *TURN OFF END * IJF EOFV 
* EOV SWITCH * * OF FILE BIT * 
* IN DTF * * IN OTF * 
REKKKEKEKE KK HEKAEKKKEEKAKEK 
eee ‘ #HEK ‘ 
* #* 4 * 
*OL Reeoe *DR Keen 
* jie "6 *GL* 
HES ye wee é 
1UF FEOL Xx uF EQFE Xx 
SEKKEB) 1 EKKEKCEREED FEREEEH 3FEKKHEEKEKE 
*LOAD ADORESSES * * GET OTF * 
* OF OTF TABLE, * * TRANSIENT,  # 
* B-TRANSIENT,. * * AND RETURN # 
* AND RETURN # * ADDRESS * 
ADORESS * * * 
REKKSEKKKESKKKKEKKSK SREKKEKKEKCEKEEKE E 
e e 
x x 
SKEEKSCE 1LKEEKKEEEKES VEREKEZSEHKKEKKKS & 
* * * ¢ Pa a * * 
* * 2 * &« * * SVC 2 * ¢ 
* * TCH «* & ** FETCH «* * 
* & TRANSIENT * # * * TRANSIENT * & 
* * * *x * * * 
SEKKKEEKKKKEKEKAKE SEK EKKEKEREKKKEKKEEK 
» e 
e es 
X x 
oes o¥e 
Fl *, KEKRKKE QEEKKAKEKEKE F3 *, RREKEKE GKEKEEKKEKEKEER 
-* WAS *, * + 7 - * + 
ENTRY -*,. NO * SAVE AND * * EOV *. NO * SAVE, RESTORE * 
#. FROM MACRO c#ecceeee oX® RESTORE * *. FORCED SB ce cceeeX® REGISTERS AND * 
oEXPANSION.® * REGISTERS * *. -* *SET BLOCK SIZE * 
*,. o® * *, * * * 
e e%& RRARKKEKEKKRKKSKEE & *, -% REAKKKKEKKKKKKKKKESE 
#VES Z *YES ‘ 
se e e e 
e a e cf 
@e e * e 
e x e x 
INF EFE X o*, IJF EFE x o*. 
RKRKSKG 1] KKK G2 *. REG IEKKKEKKK G4 *,. 
*SET DEBLOCKERI * 3 : * * o* * 
*ANO DEBLOCKER3 ®& e* INPUT “*. YES * TURN OFF * * *. YES 
* TO ZERO * : FILE aa@es * EOV BIT * *. INPUT ee 
; IF REQUIRED Ps *, ao" ° * IN OFT Re ;* « 
eo e e e @ °® 
RHEKEKKEKEEKEKEKKEK *,. KKKREKKAKEKKE *®. xX 
e *NO RKKKE e 3NQ RKEKKE 
5 ; *DP * : ‘. *DQ * 
‘ ; * 85% : ; * Ble 
e ~ * * é < * * 
Pi : + ; ‘ * 
: x IJF FTI ; x IJF EXL 
e o*, xX o*, 
x H2 x, RKEKSKHYZFEKKKKKKEEKK H4 x, 
KEKE 1 EKEEEEKES 3 * SET BLOCK * e : *, 
RETURN TO * .* TWO *. YES * SIZE TO ZERO #* a TWO *. NO 
* USER VIA * *. I/O AREAS c¥.ece * RESTORE * *. 1/0 AREAS c¥ecee 
* REGISTER 14 # * SPECIFIED. ; * RETURN * *. 3 ; 
KREKKEKKEKKEREKE *, o* 2 € ADDRESS * *, o* s 
*, _* x REKKKKKSEKEKKEKKEE *, o* xX 
*NO RKKKK m *YVES EKKRKE 
i *DL * 4 ; *00 « 
* A3% , 2 * A3* 
Jl P * * % x “ * 
MTMOD MACRO : * ‘ hehe * 
PARAMETER OPTION - x LJF GBC ; *DQ * IJF CHNG 
DECISION DOES NOT o*, : * K2e 
APPEAR IN AN “Se Sty x * * 
ASSEMBLY LISTING. * *, $4 ZCEKEE EE KR * 
; -* ASCII “#. YES * RETURN * IJF BCNT 
+ SPECIFIED cecce * TO + 
*. jl of : * USER * 
*, Py. 3 e REKEKREEKKKEKEH 
*. ot x 
*NO KEES 
: *DL * 
* (5% 
x * * 
eK KKE * 
*DL * IJFXRCT 
* C3* 
* 
* 
IJFFRCT 
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Chart DD. MIMOL: GET Macro 
EKER 
* AZ * 
eK 
« 
x 
o*e 
* REFERENCES A3 e 
KHKKA LERKEKEREEEK TN O0DB2 . ®. KXKKASKEAERESEE 
* MTMOD 08J5, DEBS o* SPANNED *. * MTMOD * 
* GET MACRO * : Pe RECORDS o* * GET MACRO * 
* VARIABLE ° *. o* * * 
REKRAKKAEAEKEK KKH eEKKE ~ *. -* KEREREEEEREEEEE 
? 7 6 * * * e e o* e 
e * REFERENCES * e *NO e 
KER e Ta ODBI * & ° e ° 
* ° DEG4, DSH3 * ° ° ° 
* € Kees OTF5, DUAL ° e ° ° 
* * . 3 ecancecsceccces Xe & oe e 
HEKK xX = e e x ° 
o*, e IJFSGETS x e o*e IJF GET x 
BL o*, 2 KEB2EKSEKEE i B3 *, KEKE AY HEKKEEKEE ESE 
o*% - *INITEALIZE * ° o* e *1JF OBL OK* 
o* SPANNED *. YES. * RECORD * . ° WORKA *. NO *—4— $—4— 4-4-4 — 4-8 
*. RECORDS e®ecce * LENGTH AND * ° e AND RECFORM ce ccccccccccccscccce * DEBLOCK * 
*. ° -* POINTER IN * ° *. SPECIFIED.* e * RECORD * 
*. o* * WORK AREA * ° *. o* ° * * 
“*, ,* KREKEKKE KEK 7 e et é KHCEHESEREKKERAEEKSE 
*NO es e KYES eo e 
KEKE a ‘ - 6 KEK é > 
% * ° e ° ° * * X < 
*DE Reeve @ eo e DE Keee ® 
:  oee eoXeccecscvececoes ea @ 2 * A2* = eo 
e e e e KKK e e 
LF SGET xX ® x ° xX IJF GETS X © x 
ESET LA eRRRERER . EEC Q2HAHE KEK . RHEE FEKKKERESSE REKKRCARKEEKEKEKSE See EC OR SHES ENS TS 
* ° *INITIZLIAZE* e * GET AODRESS * *IJF EXL Y * *IUF WRK 
*GET DEBLOCKERS * e SPANNED e * OF I/0 AREA # Kk k= $— K— H—- F— F— & k-$—-k-#—¢~4—k— Lap 
* 4, 5, AND 6 * e * RECORD * * * AND WORK AREA * 0 oX* GET BLOCK * * MOVE RECORD *ccee 
* e SWITCHES e * <-IF REQUIRED # « * FROM TAPE * * TO WORKAREA #* ° 
* * ° * IN OTF * A * * * * * TF REQUIRED * e 
REERKEKE AKERS RKE EE a KECK EKEKEK 7 SEREKKAEEERE GEESE S  RERREKEEARARKEEKE KERR KKKKSEKERKK SE sions 
. a 5 - be REE mn * 
e e e ° ° * * ° *DF * 
° e ° e ° * C4 * ° * A4t 
. . e e se * * es * * 
e es s e e EEX @ * 
x . x e e 4 IJF EXIT 
o%. e@ o*%e e ‘ x ae 
Dl Ke ‘ p2 *, : EKEREDZEKKSEKEEKEE D4 *, 
o* *. e o* *. * StJF WORK Ow e* ASCII *. 
ot LAST *. YES . NO .*® SEGMENT *, . *-—* eect eit e* SPECIFIED *. 
*, “R CORD es ecooerkes ALREADY o* ea c MOVE TA * * AND RECFORM NE Pe cccccccccsceccnce 
*.PROCESSED.* e * .DEBLOCKED.* e * IF REQUIRED * *.SPNUNB OR. ° 
*, 0% ° *. - e * * *SPNBLK.*® ° 
a x *, .* an REKEEEEAEKEE KAKEKE €. .* é 
*NQ KEES YES : e *YES ° 
eEKK ee * * 7 ba . . KER s 
% ” * e * C4 * oKXMeccccccecscece ° ) * * x 
* El Seee * * x x 2 * E5 Feoee 
* 2 ERE KKEKK HEEEE = * * 2 
KKK x *DE-* *DF * = EEK a 
‘ o*. * Al* * 05* xX IJFRYSPOD x 
El *, * * * KRERKEEAREEESREEEE HEKERE HHKSARRHEE SE 
e* READ *. * * . * * * GET BEGIN ANDO * 
o%® AND *. NO [JF SGETU {JF EX3 * GET BEGIN * *END ADDRESS OF * 
*, RECFORM efecee *AND END ADDRESS* * BLOCK AND SET * 
*.SPECIFIED.* « '* | OF BLOCK * * RECORD LENGTH * 
®. o* e * * * TO ZERO * 
*, .% i" KERRARKERKEKEAE ERS KEKEKKKEKREKREKE RE 
*YES e ° ° 
e e eo ° 
x e x ° 
e*. ° IJFRNOPO IJFROCBN .*. x 
Fl *, é KKARKE FRERKK EE EEK F4 «, HRERKE OEKREKEEKEEEE 
o® *, e eo acaan *CONVERT RECORD * as *. *UPDATE POINTERS* 
e* READING *. YESX MTMOD * * LENGTH IN * o® ADDING. *. *T0 [/0 AREA FOR* 
° FORWARD oFeces : GET MACRO * * RECORD FROM) *Xcccccceek%e CHAR ACTERS .* * FORWARD SAVE *# 
*, ° ° UNDEFINED * * OECIMAL TO * ®. o* *RECROD ADDRESS * 
é * ‘se EREKKAERKKEKE SE * BINARY * *, * * IF REQUIRED #* 
®. 4 s “ RERGHEREEESE SERED eo 9% KEKEREKTREKEKEEES 
*NO e e e * oe 
X _@ IJSF GET x x xX xX 
REAKAG ) EKCKKEEREE Pp REEEKGZERELERE RES ERKEKG ZEKERE KEKE SE erececusstecere ss REKHEKGHKSERESEKE EE 
* GET LAST * ° * * UPDATE RECORD * * GET END OF * CURRENT #*# 
* BYTES OF * e * SAVE era * * POINTER TILtt * * BLOCK ADDRESS . #1/0 AREA ADOR. # 
* RECORD AND * ° * LENGTH ANO * * LAST RECORD ¢# * AND UPDATE FOR BACKWARD * 
* GET ADDRESS * ° * REGISTERS * * IS REACHED * * BLOCK SIZE * * IF REQUIRED * 
* OF BLOCK * Z * * * * * * * * 
REREERKKKKEE EKER ‘ KKEKRKEREKKEKEKRKS FREESE RES ESE EH EKE SRK RKKE REE KKK KKKEKKEKKERKERKE KE 
a e e eXeccsvecsececeveveseseversece e 
e e e e 
. ‘s ; #EKE 6 
e @ oe * * e 
IJF TEST «xX e x * €5 * x 
RHR HY LKEREE RAH 2 KEKE IEKRERAKE ERE * * KKK EY HEREERAERESR 
* GET RECORD * e *IJF EX1 oT ea KK * * 
* LENGTH AND * ° am Km Ham K— KH — Hm K— *GET AND UPDATE * 
* ADD RECORD * e * * * BLOCK SIZE * 
* SIZE TO * e * READ RECORD * * TF REQUIRED * 
* BLOCK ADDRESS * ° * * * * 
Pets e ret ise et So. f | ‘ SEEKER ERE KER ERK KREKEEKEREKEREE ESE 
e a e x 
is my . ERE 
° . e * * 
x ° xX * El * 
MERKEL RAKE KE KEK ‘ HHEREKIZEKKEERE EEE * * 
* INVERT RECORD * ° * GET CURRENT *& SKE 
* LENGTH SIGN” * e * 1/0 AREA AND * 
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Chart DE. MIMCI: GET Macro, Spanned Records Routines 
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Chart LCC. MIMOCD: PUT Macro 
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Chart DH. MIMOD: PUI Macro, Spanned Records Routine 
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Chart DJ. MIMOLC: 
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READ and WRITE Macros, Work Files, and RELSE and TRUNC Macros 
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Chart DK. MTMOLT: Logical Spacing and EOV Spanned Records Routines, Deblocking Routines, 
and Translate Subrontine 
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Chart DL. MIMOD: Read/Write Subroutine, Fixed Length Records (Part 1 of 2) 





SEEK 
a * & 
* * 
* * 
x 
IJF GBC x ; 
RREKKAZRRKEKECEKEE * REFERENCES 
KHEEKALERERERE ERE * * TO OLA3 
* MTMOOD * * GET .AND + DCH2, DNOL 
* READ/WRITE * eeX* RESTORE NEW * 
* SUBROUTINE * e * BLOCK COUNT * 
REREKEREKEKEREK . * 
‘ FERRERS RRERARERSE 
. Skee . 
EK ‘es * * > 
* * e * AZ * e 
*0P Fee *B2 * * e 
* ES* e MTMOD MACRO EEE ° 
ERE 7 PARAMETER OPTION - x 
JF HRU xX DECISION DOES NOT o*. 
REKEKE |LEKKEKKEEEKE APPEAR IN AN B3 *. 
*TJEXTRA OK* ASSEMBLY LISTING. o* ° 
¥— ¥— 8 K— K~—4— $— F— & ° ASCII *. YES 
* TRANSLATE * *, SPECIFIED 0 Re '6 6: 6.6.0 60 6:.6'6:0'0-0 6.6 0 0:66.00 6 0.6.0.010 6 6:6 60.0 .66:6 06 0:0 668 
* BLOCK * e *B2 e e 
* [F REQUIRED * *. o® ° 
EREAKKEKEKERAERKE e e® . 
e *NO oe 
Prt) 2 KEKE 2 REE ie 
* * i, * * x 
BY * eee *O0C Reece *DC Reece 
* * ° * J2* ° * J2* ° 
Pretty : eke . REE = 
IJF HU2 x IJFFERCT x IJFXRCT x 
REKKC LKEKREE CREE EE * REFERENCES ERERKC ZAKKKKEKERE KEKAKCSERKEKEREEE 
Svc 0 TO OLCL * LOAD ANDRESS * *TLJFXTRA OK* 
* PERFORM * DMH1, ONJL * OF CURRENT * &—-K— 6 ~ H— HF K—K—H 
SPECIFIED * 1/0 AREA AND * * TRANSLATE * 
* OPERATION * * CLEAR HIGH * * IF REQUIRED # 
IF REQUIRED * ORDER BYTE * * * 
RERREEERAKEK EERE KEERKKKKEAEAKEEEES RERKRKEKAAKRKEREK EE 
e @ e 
) e e 
e a . 
eXcccccccacecsececseseneeseos e e 
x e xX ° 
IJF MAI 0%, e o*. 1JFFBCKW x 
Ol ‘ KERRY 2EKKEEKKEREE 03 *. EKEKKH AKEKEEREREE REKEEOSERAKEEKESE 
* - * * * * ‘ *, * * * * 
e {/0 *,. NO * * SVC _7 * * o* READING *. YES * GET 1/0 AREA * * LOAD * 
*,. COMPLETE eoFecccccceX® * WAIT * * -%. BACKWARD e®eeeccaeeX*® ADDRESS MINUS * *RES{IDUAL COUNT #& 
e e * * * * *. e * RECORD SIZE * * IF REQUIRED * 
*, e* * * * & *. * * * * * 
*, _* RKEKEKKERERKRR ERE EEE *. .* RHEKKERESEEEEEEEKE KERKEKEEERKEEREEEE 
*YES *NO ° e 
x e ° e 
oe. oe, X x xX 
El x, E2 *, RRERKE ZRKKEKEREES EREKKE GEEKAERAEEER CHEKKE SEREKEKAEEE 
o® *, o* DOES ° * * * SAVE POINTER * * GET I/0 * 
o* UNIT *. NO o* FILE *. NO * CALCULATE * * TO DEBLOCKER1 # * AREA ADORESS, * 
*LEXCEPTION BIT e#eccccweeXke CONTAIN o%ccecs * 1/0 AREA * * AND CALCULATE * *RECORD LENGTH, *eece 
*.IN CCB ON.* *CHECKPOINT.* e * ADDRESS * * 1/0 AREA * * AND 8LOCK * ° 
*. o% *eRCDS o% * * * ADDRESS * * PREFIX LENGTH & e 
*, .* *, .* X KEKKKCKHEEAEEKEEERE ERKEKRKAERERKEK EEE EKERKRAREKRKERKEKRE X 
*YES *YES KEEEH 7 - HERE 
« e *ON * e e *0M * 
e ° * BLS e e * AL* 
° ° * * ° ° * * 
” e IJFFRCK * eXccccccsscvecscescecccvesceos 
by e e 
IJF EXT o%, ° IJFFSTD X o%e o*, 
F . ‘ REKKEKEZKKEKKEEEEE F4 *, F5 *, 
° e ° *. STORE 1/0 * o* e o® e 
o* ENTRY *,. YES ° * AREA ADORESS * o* WRONG *. YES o* INPUT *. VES 
eee CLOSE oKccceeXeccccvccscececs * ANO RESIDUAL x oa eX, LENGTH oXerccceiseeX*e FILE oMecece 
Pare einnettcinianintterttmaimatnnrtinentnstinenittonesvtnntivern rinarttinaenrentenisiicteannnntinrtrnaar oul wertreintienngpaarniemetr i erasnvrninttinnntimetttiie mint 
*. 0% ° * RECORD LENGTH * e *. o* *, o% ° 
eo 3% X SERA KKK KRKAK RAKE & és Re *, .* S 
*NO ERE e e *N0 *NO e 
e * * e e e e e 
e * A3 * e oe eo e e 
e * “* e Ld e e e 
e KEKE e e e i} s 
x es @ ee x e 
o*, TJFFTET x ol JFFIGN x o%. ° 
6l *, RHRKERG QEREEEEE EKE WHC 32K HK s REG GRRE KE G5 ‘ 2 
o® *. * * é * * * é 
o# /* OR /+ *, VES * LOAD EOF * * SET WRL BIT * ° * TURN OFF * e*® ERROPT *. YESX 
*.0N SYSRDR eo*Fevcccce eX# ADORESS * * | * e * WRONG LENGTH * *. SPECIFIED .®ecee 
« SYSIPT  . : 7 * AS REQUIRED © e # RECORD BIT Pig *. * ° 
e e e a * e 
*. -* SHHKEKEKKEREKESEKEE KRKERKEKEKE ‘a KER KEKE AR RK eo ® x 
*NO 2 é « ‘ *NO EEE 
e e e e@ tJ e *pp * 
e oe e e e e * Al* 
e e e eo ® e * * 
s e e e e e * 
X e x e x e IJe ERR} 
e e e 
EH LER RE OH x ERKKSHZEKKKE REE K & pi EEERAKHGRKEREKEERE ' X 
* * SKK PRERRERERE * SUBTRACT * ‘> * GET 1/9 AREA * KEREHHEKKECRERE 
* TURN ON * * ExIT Ta * * RECORD LENGTH * e * ADORESS * * Svc 50 * 
* EOF SWITCH * * USER EOF * * FROM RESIDUAL * ° * SWITCH 1/0 * * CANCEL JOB * 
* IN OTF * * ROUTINE * * COUNT * ° * AREAS STORE # * * 
* EKEKKEKEKERKE RE * TF REQUIRED * a * OLD AREA ADOR * KEEKEREKKEKEEHSE 
Per err ror fs | EKEKKEEKEEREKEERE a REEKKE KHKREKSKHKE RE & 
es es @ e 
@ @e e e 
e & e @ 
xX 2 2 e@ 
o*. I JFFCON xX ° x 
Jl *, RAKEK I ZREKRERRERE Me REKK) ERE EKEERERE 
o* ° * * . Svc 0 
o* INPUT *,. YES * LOAD ERROR * ° PERFORM 
*, FILE o*eeee * EXIT ADDRESS * ° 1/0 
*, e e * x . * OPERATION * 
*. o® e * * ° IF REQUIRED 
*. . x REREREAREEE EERE EEE oo RXREREREKEREEEEED 
eNO KEKE > ‘ 
° *O0C * e e ° 
e * 01* e e e 
e * * ° ° . 
e * e e e 
: IJF FEOL - . ° 
PAREEK | RRKEKEEERE BHRKEKK FRKKKKEKEE SE . x 
* GET, UPDATE, * * * é EKER GRAKEERKEE 
* AND STORE * * LOAD WLR * ° * RETURN TO * 
* BLOCK COUNT * ADDRESS * ° * CALLING * 
* FF REQUIRED * * -IF REQUIRED * * ROUTINE * 
* * * * KKKEEKKEREKEEK ES 
SRRKKKKKHEKAKKEEEEK & SKKKEKEKAEKKEKSRE S 
e IJF FEND2 
KEKE 
*DC * 
* Cl* 
* * 
* 
208 LICCS Volume 2, SAM 
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Chart DN. MIMOD: Bypass Checkpoint Records Routine, Fixed Length Records 
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Chart DP. MIMOD: Error Exit Routine, Fixed Length Records 
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Chart DQ. MIMOLT: Read/Write Subroutine, 
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Chart DR. MIMOD: ReadsWrite Subroutine, Variable Length Records (Part 2 of 2) 
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Chart DS. MIMOLC: Error Exit Routine, Variable Length Records 
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Chart DT. MIMCL: Read/Write Subroutine, Undefined Length Records (Part 1 of 2) 
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Chart DU. MTMOL: ‘Read/Write Subroutine, Undefined Length Records (Part 2 of 2) 
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TMOL: Bypass Checkpoint Records 
nd Undefined Length Records 
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Routine and Translate Subroutine, Variable 
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Chart CW. MIMCCD: Work Area Subroutine 
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Chart FA. $$BOMTO1: Open (Part 1 of 2) 
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Chart EB. $$BCMTO1: Open Input Standard Labels, Forward (Part 2 of 2) 
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Chart ED- $$BOMTO3: Open Output 
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Chart EF. $$BOMTO03: Open Output Standard Labels, Forward, Phase 1 (Part 2 of 2) 
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Chart EG. $$BOM105: Open Input or Output, Nonstandard Labeled or Unlabeled (Part 1 of 2) 
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Chart EG1. $$ECHT05: Open Input or Output, Nonstandard Labeled or Unlabeled (Part 2 of 2) 
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Chart EF. $$EBCYTO6: Open Work Files 
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Chart FJ. $$BOMTO7: Open Standard Labels, Input Forward 
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Chart FK. $$BJCOPT: Job Control Tape Open Routine, Phase’ 1: 
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Chart EL. $$BJCOP1: Job Control Tape Open Routine, 
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Chart FA. 
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* READ TAPE * *. IN OTF. ° *, OF FILE * 
* ‘ 2 ‘ ‘ o* KEKE 
HREKKEE EEE EKER ERE *. .* é eo 3% * * 
« *YES oa *NO * HS * 
. REE “ ekke . * * 
‘ * * * xX 5 ERK 
° * H2 Keee * H3 Beoe oe e 
e * * * * e ° 
x eRe e ke : x ‘ 
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Chart FC. $$BCHTO3: Tape Close, EOF Input Backward 
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Except work Files (Part 2 of 2) 
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Chart FG. $SECHTOG: Close Tape Work Files 
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Chart FJ. Tape Cpen/Close Subroutines 
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Chart NA. CPMOL: GET Macro, Two I/O Areas 
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Chart NB. CPMOL: GET Macro, One I/O Area or IOPTR=YES 
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Chart NC. CFEMOD: PUT Macro, Two I/O Areas (Part:1 of 2) 
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Chart ND. CPMOL: PUT Macro, Two I/O Areas (Part 2 of 2) 
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Chart NE. CEMOLT: PUT Macro, One I/O Area (Part 1 of 2) 
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Chart NG. CPMOD: PUT Macro, IOPTR=YES (Part 1 of. 2) 
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Chart FC. CIMCE: PUT Macro, One I/O Area 
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* Pe *PC * < ERE 7 
* F2 4 ° * AQ ‘e * 
* ° * *¢ x * D3 *ece 
SUSe . * ERE SEKEK * eNSeeneers 
e IUUFBXXX * * *PD * 44% _ 
x * F2 * * 03* x 
¥SBHEH 14OE9SSEEES * * * KERKEDFHESSEEERES 
*1J55G 3XXX PC* *EKE * * =e * 
on ceee ce 4~$— 4% FIRST PASS * 
: CARD F RST * wovccee Xt ENGECATOR : 
% R QUIRED * 
seeenSenecceeeess KEKKSESKERKEEEEEE 
x . 
ot, 2s 
El #e x 
pt HHRKES ERE EEEEK 
0% 2560 *. YES RETURN TO * 
¥e OR 542 a*eovece * ADORESS IN * 
*, e e * REGISTER 14 * 
“+ * e *ERE KHRRERERRERERED 
o 0% x 
+N REX * £2 * 
ea * G3 * eee 
® e 
‘~ “B44 2 Peet 
° ° *PD + 
TIGIXXX x ITJJFOXXX xX * J2* 
rbgttg + ab baad th tenses Mek a A Dak teak ke ee * * 
* RESET CC IND. * *TIIG3XXX * 
* TO X*00* AND * + &—-k—-4—* ~4— $F —4—& = 
*CONVER AS 4 cc * * EXECUTE KXeacsecse 
* TO EBCDIC * * 1/0 
* CONTROL CODE * * Co ES 
$99O3494994S 94444 EKKEEAKEERESEEERE * * 
e e * G3 * 
e 7 * * 
* ; HH 
TIIGOXXX x x x 
BHKKEG ] $O04ESREEE RKEKKG 2EEKEKERERE CKEKKG ZARA EEHRKED 
SI JIG IXXX PCs * * SET POINTER * 
go $m $—$ —$—4~ 9-4-8 * TRC * * TO FIRST * 
* Space ONE * PROCESSING * * OUTPUT CCW * 
* LIN IF * * IF REQUIRED * * SET CHAIN * 
* REQUIRED * € * * BIT IN CCW * 
OREOREEKHEEEREGKEEY RERKEEKEEEEEEE KEE RRS EAE EKEEKAE SE 
TJ IG8XXX xX x x 
RES] EEE NEES ER KKKH IKE EERE PET TSE PESTLE LT ES 
* * FL JIG Xxx PC* * SET STACKER * 
* GET CCNTROL # t—k— F— F—— *-*—4-¢ * SELECT VOR #* 
* CHARACTER * * RIN IF * * WON FIRST * 
* ADDRES * * REQUIRED * * CCW COMMAND’ * 
* * * * * CODE * 
00006 94904094949404% HEKEKEKKEKEKEKEEEE PESTLE SCSTELeL ey 3 
° x ° 
TI IGOXXX x IJJLOXXX .¥*- x 
SHES) 1 44E9494S4% J2 *, SEKKK I ZRREKKKERES 
* MOVE CONTRCL #*# o* UNIT *€. * * 
* ict ale * e* EXCEPTION *. YES * RESET POINTER * 
* TO _CCw * *. BIT ON IN o®ecee * TO SECOND * 
: IF REQUIRED : cca * ° : OUTPUT CCW : 
PESES STEP SELLE ry S| . o® x 4EEEKEEEEKRESEEE ES 
* *NO +kee pe 
° e * * ° 
* ° * AZ *& e 
° ° * * ° 
. = ERS < 
X x ° 
TL SIXXXXX a Fe oe. x 
Kl *, K2 Ke KKK KZAREAEHERES 
* *., é = * * x * 
e* IS DEVICE *. NO ° WER *. NO * + SVC_T7 * * 
¥. A_ 2540 oXcece *,. OR WRITE e*ecce * * WAIT x * 
e PUNCH . e *. ERROR .* e * * * * 
ee o* e *. * a * * € 
*, _* x e 3% x HERRERA KSEKRTH EEE SE 
*VES *%e% *YES *eae _ 
s s * B 2 
° * F2 * ° * 03 * ° 
x x * * x 
*k4% Prt! **E% eae rrr S| 
* * *  »* * * 
* A2 * * A4 * * F2 * 
* * * * 
Fone REX KEKE 
260 LIcCS Volure 2, SAM 


(Part 1 of 2) 


e¢eeeoeesesttEoeosseseeeseesesesesesese esse aesees aves 


aes 


TJSK SXXX 


RK 


A4 
eet 


HH 
ee 


X 
A4 : eee 


# +x 
* SET. * 
TP 58 * 
ICA 
0 0 


ek 
* FI 

I 
* 


A 
TOR * 
* 


RS 
* NDIC 
T 


* * 
HERA KEKE KK 


*x * 


aXecvsecccenecs 


eke & 
* * 
* B81 * 
* * 
KKK 


KEKKE GRAKKK KEKE 


*#cCOoOs 

#-7ACO 

HHO 

*£20 
mm 


AZNO#Ke ee sans 


RRAKKKAREE KEKE EEX 


Meson e 


RERKHS* EERE KEKE 
* 


Ts 
If x 
R RED * 


* 
Hh RK HK KEKE KH K 


SVC 
WAIT 
EQU! 


HEE 


ee 
* * 
& ok 
* * 
* * 
* * 
er! 


* 


Meese eee 


sees iacaseenses 
RETURN T 


SKIP 


eeeeveetoteseesneeeene00 8 


Bs 
* 
* 


@eenaeeaeeneeaenenoeeond 


Heo ee eecevens 


an *e 
- ERROPT 


*#. IGN 


*. .* 
*, o* 
OmTD 


* 
7° 
e 
« 
. 
e 


> a) 


HEED SEREKEKERE 
ve 50 
CANCEL 

CREEK BESES FERED 


* 
* 


e 

e 

x 
eEEK 
* * 
* 03% 
*  * 
eee 


al - Property of IBM 


a 


Licensed Mater 


PUT Macro, One I/O Area (Part 2 cf 2) 


CIMCL 


Chart EC. 


[ od . had 
* NS ee Me 
ee exeOonm eeexeoO +# 
° eo ne +o & 
Oe eH we el 
ae > « 
* * 
es .@@ 
fi * ‘* 
° e e e 
& * tat) * 
e <_< ew © nd x] 
* ew . in! *#O 
e wo > e ve > 4 - 
£2 MOS Re eoeeeevoaevevneenveneeeee & ‘ Revseoeoveeeveereevoeveseevreeseovngeveeseeseseeoeoetoeeoeeeseeeeos 
° ome tose LY e e * land e ty 
faa) >mn ® oO D> * « 
[=e] Ww ® ° coo e e 
* O * ° ¥Z * e 
. e e ome e 
* e e & e 
eo¢ e ‘@e e 
* e % e 
Pad .@ x e 
® e e e 
e e e ° 
e ° e e 
e e e bg 
e e ° @eetesvesesveasoaoeene eee nvn0e8 0 @ 
e e e Woe e 
bh @ ° Oe Ws e 
Oe * Ze - > e . 
HUH HE * * ® * HRRRHRREH * HHREEED YH e HUGHES 
* & ee ee e ee & td ee * * ® * & 
* * * * e + & HHEHRHSD * & SHRKRHHERH e HEHEHE 
* zo *# o fe e e e e e & o & ° e . 3 * ° * * 
*# Oo * es — & * * ° % 13% * w * * * % * ° * * 
*& few * e zoe e <a en e e Nu e VN * thd ad EH e w ° * * e * z= & 
Han + Cum & ee Ces #0 * ew ® * oO 6 Ww e+ OCuwds * = #O er * e * NXw & 
+ “s * oO Ww # e Wai el ° wo > < © west «> * Zane * Ow oz + - * =< ‘* wa + 
#UW 68 00 exe We eee ee ome Q Ww (he ee 0 Oe Pe gf ew eee oxs aw a *# esvee exe WOUPTOH 0 0 ee exe sad %* 600 8 OH Lm He eee eveext OFC Fee 
*#a 6 * ibe ++ e Qreu ° memes ° Chem *e¢ 2>r aoe e — e # @we * e+ >Uo 
eee N oz * N DZO # ™N >On N EKA # N NYDTALe N = * nN WSs * N NUS £ 
@qezi> «a ux «© we Ww ¢ o us> e w WOO S rs [ <a] e oO * x AO & 
xe WOO # e Me <x # @ «6 <n xe Ww * * wow & * * «x H- * 
<e W2w e Me x ry e Pa4 ° s xe x * e e ." * xe + 
xe # ewe x > ™. * * XHHBWE BS se SHUHHe KHSHREEED 
Op» * ee N ee *“ ee ~~ s e.. ee * * Te * 
LOESBHHEEH & = * = * THHHDHPLHD * SRE D ZTHHHHHHE 
” hm bt | oe => ” > 
“ ae > Ze 3 ” ° 
tad es —_ es | and -— . | aad 
eeeeveeceeoecees eax eevee seesveeseeeereeeeoeeevnesneseeeHeeeeeneseeeFeeeeSeteseenseeeeseeeeoHeReeoseeeeeeeseseeesD 


261 


Charts 


x 
FREE 
*PC * 
* FQ* 

* € 

* 


seccescesee xe 


ri 


Licensed Material - Property of IBM 


Chart PE. DIMOD: PUT Macro, Two I/O Areas (Part 1 of 2) 
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* oyt es 14-15 * - * WITH ADORESS # 
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Chart PG. $$BEFRTN: Punch Error Recovery Routine 
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Chart CE. $f#$#ECCFO2: Open Device Independent Files, Phase 2 
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Chart CC. $¢$BCCEO3: Oper Device Independent Files, Phase 3 
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Chart QD. $$BCCP11: Open DTFCP (Version 1 Only), Phase 1 (Part 1 of 2) 
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Chart QF. $$BOCP11: Open DTFCP (Version 1 Only), Phase 
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Chart CF. #$BOCP12: Open IPTFCP (Version 1 Only), Phase 2 
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Chart QH. $$BOPR3: OPEN Processing for 3800 Printer file (Part 2 of 2) 
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Chart RA. $$BOCPT1: Open DTFCP and DTFDI Input Tape (Part 1 of 3) 
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Chart RB. $$BOCPT1: Subroutines for Open DTFCP and DTFDI Input Tape (Part 2 of 3) 
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Chart RC. $$BOCPT1: Subroutines for Open DTFCP and DTFDI input Tape (Part 3:0f 3) | 
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Chart KE. $$ECCET2: Sukroutines for Open DTFCP and DTFDI Output Tape (Part 2 of 3) 
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Chart RF.. $$BCCETZ: Subroutines for Open DTFCP and DTFDI Output Tape (Part 3 of 3) 
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Chart RM. $$BOCPT4: Subroutines for Open DTFCP and DTFDI Tape Labeled Input 
| (Part 2 of 2) 
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Chart SA. $BCCPT1: Close DTFCP and DTFDI Tape Files (Part 1 of 2) 
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Chart SE. f#$BCCPT1: Close DTFCP and DIFDI Tape Files (Part 2 of 2) 
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Chart SD. £fRCLIOSE: Punch File Close (Part 2 of 2) 


KKK wet ee 
*SC * SC * 
* FL* * JL* 
x Oe we 
ca * 
X ° 
CLOSECN o%, REPCHCPL X 
Al *, Mee RR EAS KR AK Hk KKK 
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e* TWO [/0 *. NO * OF ERRGR CCW x 
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*WYDEVEN Sp* e o* *, *STARTIO SD* ° * * x & *RETRYMSG SO* 
Ha Kam Ka KK KR HK Ke i * PUNCH *. YES eh K— KH — HK — HK KH - x * Svc 7 * &—- kK KK HK KH 
* WAIT FOR * ° *e ERROR atecscccesX*® PUNCH & ° * * WAIT * & * —SSUE RETRY * 
* DEVICE END * ° *, o* x * BLANK CARO * e * *1F REQUIRED* * * MESSAGE * 
* * 7 *, * “ * x $ x * x * od 4000I * 
FRO ROR RR tte tek Rea ote tr ‘e *. ot 3 Rome Ro a eK ok eK 5 Atte tok bototek dak doko kt MERA ARK EES KR 
. J e *NO e es e es * 
° ° es e e e RK Ke @ e 
e e e e e e * * e e 
e e e e e e x N4 Kee J 
o eo e .) e e * * oXevecccesecce e 
x ° e ° »§ ° mE HK Py ° 
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Wok aA) tok dak doe bok 
$BUCPM L : 
S$BUCPM 2 * 
$e HOR RR EK 
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° 
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HHH VSP] FH awe Ke HK 


SAVE 
REGISTER 


eee He 
ee ed 


MM em eR a. Be aa oe he ee 


e286 @ 


MR MKC | ee ek eK 


* * 
* * 
* INO TCATE * 
* CALL ING % 
* MODULE * 
* * 
ORR RD ER eR 


os t¢@#e 


me 


MEO LR REE 
* & 


* FETCH * 
* $$BUMSVA * 
* . € 


x * 
Bb woe eR ee 


$$BOCPM1 and $FBOCPM2: 
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DTFCP/DTFDI Message Writers 


CRAFT SE 
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Chart UA. CUMCIFI:s Get Koutine 


Get Processing 


3540 
diskette 













1, Get record and pass it to user. 
2. Deleted or sequentially relocated records 
(C4s/C6s) — skip record, do not give to user. 
3. Error handling. 
a. ERREXT and ERROPT not specified. 
eNo error handling in logic module. 
b. ERROPT specified. 
e Determine error. 
eDetermine ERROPT error option. 
—name — exit to user’s error routine 
— upon return take SKIP option 
—SKIP — skip whole record or. block of records 
—IGNORE- ignore error . 
c. ERREXT and ERROPT specified. 
eDetermine error. 
eDetermine ERROPT error option. 
—name — exit to user’s error routine 
— return from error routine is 
by ERET macro which allows 
options of SKIP, IGNORE, or 
RETRY. 
—SKIP — skip whole record or block records 
—IGNORE — ignore error 
4, End of data plus no more extents (end of file) 
—feed to next volume (if specified in DTF) 
—exit to OPEN transient to end job 
5. End of data plus more extents (end of volume) 
—feed to next volume 
—exit to OPEN transient for new extent. 


Fill user’s work area | 


DTF table 
CCB byte 4 


Unit exception bit 





























CCB bytes 2 and 3 (A) 

Bits for: C4 or C6 record found 
unrecoverable I/O 

error data check \ 












| Inst. to load user’s 1/O reg. 


Reg. 1 


Address of error block 


B’/1xxxxxxx’= no more extents 










End of data address 


Current search arguments 


ERROPT: B’1xxxxxxx’=name 
B’x 1xxxxxx’=IGNORE 
B’xx 1xxxxx’=SKIP 



















Address of DTF 
Address of error block 
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Chart UE. CUMOLCFO: Fut and Close 


a ee | 
; 


User’s 1/O area (] 


DTF table 


> 


CCB bytes 2 and 3 


Bits for: Data Check 
Unrecoverable 
1/O error 





B’1xxxxxxx’=no-more-extents 


End-of-data seek address 


ERROPT: B’1xxxxxxx’=name 
B’x1xxxxxx’=IGNORE 
B’xx 1xxxxx’=SKIP 


Address of user’s error routine 


Bits for: C6s written on volume 
EOF-no-feed bit 









Put Processing 


2. End of extent. 


3. Error handling 


Licensed Material - Property of IBM 


Routines 















a 
= 


3540 
Diskette 


1. Put record on block of records to 3540. 


update ERMAP if X’C6’ records were 
written on volume 

feed to a new volume (unless no-more- 
extents bit on) 

exit to OPEN transient to get new extent. 


Reg 1 


Address of error block 


a. ERREXT and ERROPT not specified. 
@ No error handling in logic module. 
b. ERROPT specified. 
e Determine error. 
e Determine ERROPT error option. 
—name — exit to user’s error routine 
-— upon return take IGNORE option 
—SKIP or IGNORE-— ignore error. 
c. ERROPT and ERREXT specified. 
e Determine error. 
e Determine ERROPT error option. 
—name— exit to user’s error routine 
— return isby ERET macro with 
following options: 
— SKIP and I|GNORE-— error is ignored 
— RETRY-— causes bad spot control 
records to be written in the current (error) 
diskette block, and the write retried in 
the next sequential diskette block. 
—SKIP and |GNORE-— ignore error. 

























Reg1 


Address of parm. list 
Address of DTF 


Address of error block 





























DTF tabie 







4. Close entry. 
write short block if necessary 

update ERMAP if X'C6’ records were written on . 
volume. 


C6s written on volume 
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Chart UL. Index to 3540 CPEN Phases in Transition Sequence 






$$BOPENR $$BOPNR2 ------ S$BOPEN 


$$B35400 
UE 


C 


YES <> NO 
$$B35401 $$B35400 (4a) 
VA WA 


CO) CHD ; C) Cor) [coe 
WP 
$$BODIO1 
VD 


terminate security message 


YES NO 


$$BODIO5 $$BODIO2 
VF WD 


VL G 


Comins) sseooior | Crmiwe ) 
WK 


= wis) GC) Com) 
terminal error non-terminal 
(cancel) error (return) 


terminate message 
security 


$$BODSMO 


















$$BODMSG 





return to 
caller 


return to 
caller 


$$BOWDMO 


return to 
supervisor 
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Chart UE. $$B35400: Diskette Open, Initialization (Part 1 of 3) 


Input Processing Output 


. If DTFPH, put on traffic bit in CCB. 


. If returning from message writer 
execution resumes at step 5. 


Modify user register save area 
to point to IOAREA if ‘IOREG’ 


| specified. 


Registers: 


2 Contains the address of the 


DTF. e ° . . e j 
. Determine if exit will be to input 


open phases or to output open © ‘Save the DIB address for a 
phases, and set internal switch. 


Contains the address of the 
System Communication 
Region. 


system file in open table X’496’. 


. If the file to be opened is for output 
(not DTFPH) and has IOREG specified, 
then the save area for the register 
specified is modified to point to the 
user’s IOAREA. Set file in user 
indicator if file opened. 


X'4A3' - setonsystem 
opened indicator 
(mask X'02’). 


10 Contains the address of the 
Register Save Area. 


DTF +6 =symbolic unit. 





Communication Region +53 = 
SYSIN/SYSOUT supported 
byte 


. If the file to be opened is on a system 
logical unit, then a check is made to ~ 
determine that SYSIN/SYSOUT is 
supported. 


Message 43481 - SYSIN/SYSOUT 
not supported. 


DLBL +0 = bypass indicator. 


a. If it is not supported, message 
43481 will be issued. 


b. - If it is supported, the address (A) 





of the SYSIN, SYSLST, or 

SYSPCH DIB is determined and 

saved in the common open transient 
~ table (location X'496’). 


Insert correct filename for label 
_ area search. 


d. If DIB in use and end of extent not 
' reached, continue with step 8. 


. Initialize LPL for reading and writing 
the SYSRES label cylinder. 





- chart connectors * See LIOCS Volume 1, $$BOPEN1 Monitor 


parameters and 
areas available in 
main storage 


- physical data 
movement 


on page connector 


off page connector 


comments 





Charts 295 


Licensed Material - Property of IBM 


Chart UF. $$B25400: Diskette Open, Initialization (Part 2 of 3) 


Input Processing Output 


fi Open transient table 
X'467’ - track s/cyl 
X’468’ - max.seek address 
X’46B’ - max.head number 





. 6. Update open transient table for 3540 — 
device characteristics: | 








a. number of tracks per cylinder 


b. maximum head number a 
c. maximum address on disk W 


. Contents of the DLBL/EXTENT 
card(s) are checked here: 






Set up base register for 
DLBL/EXTENT image. 






Build a dummy extent for 
input: 
1. blank volume serial 

2. X'FFFF’ insymbolic unit 
3. zero elsewhere 











a. If returning from the message © 
writer because of an invalid . 
DLBL/EXTENT, the bypass 
indicator is set in the extent 
image and it is rewritten back 
to SYSRES label cylinder. . bypass 


. Set up base register for DLBL/ 
EXTENT DSECTS of subsequent 
| phases. (B) 
sven moniter . All DLBL and EXTENT cards are . 





Write extent indicating 


SYSRES label cylinder read and checked for validity. 


Errors and cause: 


488 11 - no label information 

43611 - invalid DLBL function 

43581 - no XTNT for output 
file 


43811- no SYSRES label 
information. _ 

43611- invalid DLBL function. 

43581 - no extent for output 
file. 


. If no extent is provided for an input 
file a dummy extent is generated. 
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Chart UG. #$B35400: Diskette Open, Initialization (Part 3 of 3) 


input Processing Output 





. Overlay DTF symbolic unit 
with extent symbolic unit. 


DTF + 6: 
Modified to reflect extent 
symbolic unit. 






Reread first DLBL/EXTENT 
image for this file. 





SYSRES label cylinder 


The first DLBL/EXTENT 







image in main storage. 





. Save disk address of next 


extent image in open table. Open table: 


X'498' - address of next 
extent record 





8. Exit to the first input or output 
open phase... 






input output 


| te 
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Chart VA. $$B3540I: Diskette Open Input (Part 1 of 3) 


Input Processing Output 


Registers: 
2 points to DTF 
6 points to DLBL/EXTENT 

in main storage 
7 communication region 
Open table: 
X'4A3’ - system open 

indicator (mask X‘’02’) 

X’496' - the DIB address 
Communication region: 


X'38’ - job control open 


. Relocate CCW string. 


. If the file is to a system unit: 


. 1f.X‘4A3" does not indicate opened, 
processing continues with step 3. 


. If not DTFDU, continue step 'D’. 
. If DTFDU being opened, a check is 


. If the open is from job control or if 










Otherwise, continue. 







made to guarantee single sector mode 
Processing. !f command chaining is 
indicated terminal error 43371 is 
issued. If not, continue. 








43371 - chaining to system. 


unit 


DTF fields updated: 


X‘15’ 
X'36' 
X'3C’ 


open indicated 
upper limit 
lower limit 





(mask X'40’) X'45’ - upper track limit 
X'4C’ - LIOCS control block 
X'16’ - DTF name 


X'26’ - communication switches 


the DTF indicates file is already open 
processing continues with step 3. 
Otherwise, continue. 
e. The DTF is updated from the DIB. 
The file is indicated open. 
f. Change DTFNAME to‘ 'IJSYSIN’. 
If step ’e’ was executed then exit 
is to either the open monitor to open 
next file or to the user's next. 
instruction if all files opened. If step 
‘e’ was not executed then processing 
continues in this phase, 






DTF + 6 = symbolic unit 
DTF + 20 = DTF type 

DTF + 21 = file open indic. 
DTF + 72 = chaining factor 









Com. region +56 = job control 
open 

DLBL + Oz bypass indicator 

PUB + 4= device type 

PUB2 + 14 = X’02'- system FIK 
X'01' - file open on 
device 

DIB beginning address 

DIB no more extents X'80 

DIB extent sequence 
number 

DIB end of data 















continue this 
phase 





* See LIOCS 1, $$BOPEN1 Monitor 
**SVC 11 (user's next instruction) 
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Chart VB. 


Input 


Communication region 
x'5A’ - address of PIB oo , 


*SVC 11 (user’s next instruction) 


$$B3E40I: 
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Diskette Open Input (Part 2 of 3) 


Processing 


. If no more extents are indicated and the 
file is opened: 
Unit exception set off in DTF. 


. If the extent is indicated to be bypassed, 
terminal message issued. 


Pare e 


. Exit to the user or continue processing. 













Indicate exit to user. 

For DTFPH indicate EOF. 
Modify PSW to return address. 
Zero seek address to indicate file 
completely processed and feeding 
not necessary for DTFDU. 
















Output 


43601 - no extents, all 
bypassed. 


DTF fields updated: 

X‘04’ - unit exception 
(mask X'01’) 

X'26’ - return to user. 


switch (mask X’10') 
X’'1E’ - insert ‘F’ for 
DTFPH 
X'3C’ - zeroed out 
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Chart VC. $$B3°540I: Diskette Open Input (Part 3 of 3) 


Input 


Open table: 

X'498'- address of 
next DLBL 
extent record 


Logical unit block 


Physical unit block 


300 LIOCS Volure 2, 


Processing 


. If file is not opened the DLBL/ 
EXTENT in main storage is the 
one processed. If the file is 
opened a search is done to read 
the next extent to be processed 
into main storage. If the record 
sought is not found termination 
with an error. 


Message 4329D will be issued if: 


4 or Lin the multivolume indicator 
was detected before diskettes corre- 
sponding to all extents provided, 
were processed (for DTFDU only). 


. Message 43831 will be issued if: 


a. Neither the DTF nor the 
_ EXTENT image contain the 
symbolic unit number, 
. Assignment not to a 3540 
device. 
. Symbolic unit different in 
extents. 


. Attempting to open two files 


to same unit. 


. If the extent does not contain a 


symbolic unit, but the DTF does, 


then the extent is updated from 
the DTF. 


. Set system file indicator. 


. Exit is made to the VOL1 label 
processing phase. 





y 





Output 


438 31 - invalid logical 
unit, 


43071 - no record found 


4329D - extents not 
exhausted. 


The DLBL to be 


processed is in 
main storage. 


The symbolic unit 
is placed in extent 
image if required. 


PUB2 + 14- ‘X’Q2’ set if 
system file open 


Chart VD. £¢#BODIO1: 


Input 


Registers: 


contains the DTF 
address 

base for DLBL/ 
EXTENT image 
communication 
region address 
return address 
entry point 
(from message 
writers) 


DTF 6 = symbolic unit 

DLBL 84 = volume serial 
number 

DLBL 100 = symbolic unit 

VOL1 label: 

+ 4 — volume serial number. 

+ 10 = accessibility 

+79 — standard label level 
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Diskette Volume Label Processor (Part 1 of 2) 


Processing 


. Relocate CCW string. 


. If returning from a message writer, 
entry is in register 5. 


. The DTF symbolic unit is made to 
agree with the extent symbolic unit. 


. Adummy ‘VOL 1 LABEL’ is created 
for the spooled environment. If spooling 
is being done the dummy label will be 
the one actually processed by this phase. 
If spooling is not occurring the dummy 
record will be overlaid by the VOL 1 
LABEL from the diskette. If the 3540 
is a spooled device, the VOL 1 label 
is not read. 


. Read the VOL 1 LABEL. 


Examine the VOL 1 LABEL: 
bytes 0 - 3 must contain ‘VOL 1’ 
byte 79 must contain ‘W’. 

If either of those tests proves false, 
a terminal message is issued. 


. If the volume serial number is omitted 
from the extent, the diskette present 
is assumed to be the correct volume. 


. If the volume serial number is provided, 
a check is made to guarantee that the 
correct diskette is loaded. If not, a 
mount message is issued. 





Output 


DTF + 6 is modified if 
necessary to equal the 
extent symbolic unit. 


Dummy VOL1 label: 

0-3=‘VOL1' 

4-9 =volume serial number | 
79 =‘W’ 

Everything else is set to 

blanks. 


43061 - No standard VOL1 
label. 
4355A - Wrong pack, mount 
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Chart VE. $$BOLIO1: Diskette Volume Label Processor (Part 2 of 2) 


input Processing Output 


















8. If a mount message was issued and 
control is returned to this transient, 
then steps 4 - 7 are reexecuted. 





. 1f the correct volume is mounted 
then byte 10 of the VOL 1 label 
is checked to see if the volume is 
secured. If it is not secure this phase 
is exited to either the next input or 
output phase. If the volume is 
secured, the secured message writer 
is called; if control is returned to 
this phase, exit is made to the next 

input or output phase. 







* See LIOCS 1, $$BODSMO (secured message writer) 





$$BODIO2 
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Chart VF. $$BCLIOS: 


Input 


Registers: 


contains the DTF 
address 

return address 
entry point 
address of the 
DLBL/EXTENT 
image 
communication 
region address 


Communication region: 


89 - reentry switch 
(mask X’80') 

DTF + 22 = DTF name 

DLBL +9 = file ID. 





Liskette Open Input, HDR1 


Processing 


. Relocate CCW string 





2. If returning from message writer, 
return on register 5 


3. Create adummy HDR1 label. if spooling is 
being done this is the actual HDR11 label 
that will be processed by this phase. If 
spooling is not being done, the dummy label 

will be overlaid by the HDR1 label(s) read 

from the diskette. If the 3540 is aspooled . 

device, the HDR11 lfabel(s) are not read. 









. Read and process the HDR1 label (s) 
(1) Bytes 0 - 3 equal ‘HDR1’, 

a. continue 
(2) Otherwise ignore that label © 









equal, continue; 
not equal, determine 

if there are any more 
HDR 1 sectors. If not, 
issue error, otherwise 
‘read next HDR1. 







b. Data set 
name = 





b = continue 
c. Exchange 

indication 
b = terminate 


b = continue 





d. Bypass 
indicator 





b = terminate 






Verify indicator 









= YES Verify field of 
HDR1 = ‘V’ 


continue processing. 








Verify field of 
HDR1 #'V' 

terminate with 
error message. 









Continue normal 
processing. 
















Licensed Material - Property of IBM 


Label Processor (Part 1 of 5) 


Output 


Dummy HDR? label: 


bytes O- 3—'HDR1’ 
bytes 5 - 12 — file name 
byte 24-.20 — block length — 0 
bytes 28 - 32 — beginning extent — 
(01001) 
bytes 34- 38 — end extent = 
(73026) 
— multivolume 
indicator — ‘C’ 
byte 72 -'V’ 
bytes 74- 78 — end of data — 
(74001) 


byte 44 





43011 no record found > 
43641 invalid HDR1 label 
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Chart VG. $¢$BOLIO5: 


Input 


Processing 


Diskette Open Input, HDR1 Label Processor (Part 2 of 5) 


Output 


no, continue 
E, FILE secure — yes, exit to secured 


message writer - 





‘Exit to secured 
message writer 
for HDR1 label! 





Note: If operator 
responds so that 
processing of the 
HDR 1 can continue, 
execution will 
resume here upon 
return from secured 
message writer, 





DTFDU 
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. DTFPH 
1. 


. lf multivolume indicator is invalid, 


. DTFCP/DTFDI 
1. Continue with step ‘I’. 





DTFPH updates: 


Block length (from HDR 1 label) 








is converted to binary and placed byte 74 - block length 
in the DTF. 

. Multivolume indicator bit is turned byte 73 - multivolume 
on in DTF. indicator 












then terminal error. 
Continue with step ‘I’, 













Other DTF 
types 
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Chart VH. $$BOLIOS: Diskette Open Input, HDR1 Label Processor (Part 3 of 5) 


Input Processing Output 











DTFDU: 
byte 21 - open switches 


DTFDU changes: 
Multivolume indicator 





byte. 108 - sequence checking 
bit is reset (mask. X‘20') 










byte 36 - volume sequence 
number 
byte 108 - 3540 flag byte 






1. Turn off sequence check bit. 
2. If multivolume, indicator bit 
or the bit indicating the file 
b= is opened is set, then terminate 
with error. 
3. Indicate last volume in DTF. . 
4. Continue with step ‘I’. . 










byte 108 - multivolume . 
indicator bit set (mask X'10’) 






byte 39 - indicate last 
volume (mask X’20’) 


byte 36.- next sequential 
sequence’ number 














File not open: 
1. Turn on multivolume 

indicator switch in DTF. 
2. If the volume sequence number 
in the HDR1 tabel is blank, 
reset volume sequence checking 






Extent changes:. 










byte 60 - present volume 
_ sequence number 


. Note: Step 'H’ only 







applies to DT FDU bit in DTF. 
' files. : 
3. ahs volume sacapeaiiace ener 4332! volume sequence 
blank: | » Ss ee vertor 
C= (a) and the check volume 





sequence bit is set in the DTF, 

then the first volume sequence 

number is saved in the extent 
and the next expected 

sequence number is stored in 
the DTF. Continue with step ‘I’. 








(b) if the check volume sequence 
bit is not set, processing 
continues at step ‘I’, ~ 











MV I processing 
complete 


Charts 305 


Licensed Material - Property of IBM 


Chart VJ. $$BOLIOS: 


input 


306 


LIoCS Vclume 2, 


Diskette Open Input, HDR1 Label Processor (Part 4 of 5) 


Processing 


SAM 


File open: 


1. Check to see that the multi- 


volume bit is on in the DTF. If 


it is not, terminate with an error. 


._ If sequence checking is ‘indi- 


cated, then the new sequence 
number is compared to the old 
sequence number + 1. If they 
are equal, the new sequence 
number is saved in the extent 
image and few sequence number 
+ 1 is saved in the DTF., If they 


are not equal, a terminal error 
is issued. : 


. If the multivolume indicator bit 


is not set in the DTF, terminate 
with an error. 


. Reset the multivolume indicator 


in the DTF. 


. Indicate last volume in the DTF. 
. If volume sequence checking is 


indicated check volume sequence 
number. 


. Reset check sequencing bit. 
6. Continue with step ‘I’. 





Output 


DTFDU changes: 


Byte 108 - reset multi- 
volume indicator bit 
(mask X'‘10’) 
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Chart VK. €$BOLIO5: Diskette Open Input, HDR1 Label Processor (Part 5 of 5) 


input Processing _ Output 














DTF changes: 


If multivolume indicator is not 

equal to ‘6’, 'C’;, ‘L’, then a ~ 

terminal error message is issued. Bytes 54-57 - end of data 
address 

bytes 60-63 - beginning 
extent address 

byte 33 _- extent 
sequence number 





1. Convert beginning extent 
and end of data address to 
binary and save them in the 
DTF. If the head number is 
not Zero, terminate with 
an error. 









. The extent sequence nember is 
saved in the DTF. 








. Asingle define operation CCW 
is executed to reset the supress 
unit check indication for ‘C4’ 
and ’C6’ control records. that 
open has set on. 





43591 invalid extent | 


7. Exit to next input open phase 
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Chart VI. $$BCIIO6: Diskette Open Input, Initialize DIF Table (Part 1 of 2) 


Input Processing Output 
























Registers: 


43591 invalid ‘extent 


. Verify that beginning extent address 
is = X'00010001’; if it is not, 
terminate. 

2. Verify that the file begins on a track 
boundary if the chaining factor is 2, 
13, or 26 for DTFDU; 
if it does not, terminate. 

3. Verify that the end of data address 
> beginning extent; if it is not, 
terminate. 

4. Verify that the end of data address 

= maximum seek address; if it is 
not, terminate. 

5. For DTFDU, DTFCP, or DTFDI, 
fill in the LIOCS control block field 
and the LIOCS work bucket. 

6. For all DTFs; ¢ 


address of DTF 
DLBL/EXTENT address 
in main storage. 
communication region 
address. 


|OTF DTF type 
DTF end of 
data 
OTF beginning 
address 
DTF chaining 
factor 










DTF changes: 










byte 21 - apen indicator 
(mask X‘04’) 
byte 38 - no more 
extents (mask X’80‘) 
- new volume bit 
: (mask X'08') 
byte 39 - bypass indicator 



















































a. Set file-open indicator reset (mask X‘80’) 
b. Reset bypass indicator bit byte 40 - extent sequence 
c. Save extent sequence number byte 22- DTFNAME 
d, Set new volume indicator Additional for DTFDU, 
e. If last extent, set no-more- DTECR, andi DIF Or 
eee bytes 68 - 71 - LIOCS 
extents bit. contro! block 
7. !f not a system file, continue with bytes 76- 79 - LIOCS 
step 9. work bucket 
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Chart VM. 


input 


Common open 
table: 


X’496' - address 
of the DIB. 


* See LIOCS 1, $$BOPEN1 Monitor 
**SVC 11 (user’s next instruction) 


FSRCLIO‘’S 





Diskette Open Input, 


Processing 


8. If a system file: 

a. If DTFDU is being opened a check 
is made to guarantee single sector 
mode reading. if CCW chaining is 
indicated, user is terminated with 
an error. 


in the HDR1 label to see that it is 
a ‘6’, ‘C’, or. ‘L’. If not one of the 
above, the user is terminated with 


an error. ; ; 
c. If the multivolume indicator in the 


HDR 11 label is either ‘6’, or ‘L’, the 
multivolume indicator in the DIB 
is set with an X’40’ mask. 


If the multivolume indicator in the 
HDR’ is a ‘C’, then the multivolume 
indicator in the DIB is set with an 
X'10’ mask. X’80' set. if no more 
extents. - 


d. DIB posted from the DTF. 
9. Exit is to either the open monitor to 


open the next file or to the user’s next 
instruction if all files processed. 



















b. The multivolume indicator is checked 


Licensed Material - Property of IBM 


Initialize DTF Table (Part 2 of 2) 


Output 











43371 chaining to system 
unit. 


43641 invalid HDR1 label 



















‘DIB updates: 


DIB + 40 = switch byte 
DIB + 3-=.low limit seek address 






DIB + 11 = last extent 
opened sequence number 
DIB. + 13 — end-of-data address 
on diskette 
DIB + 19= number of records 
per track 


PUB2 + 14 X’01’ file open on — 
device. 
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Chart WA. $$B35400: TLiskette Open Output (Part 1 of 3) 


Input Processing Output 





. Registers: Common open table: 





X’4A1' - set to X’F4’ to 
indicate output 
for any messages. 

X’4A3’ - system file opened 
switch is reset 
(mask X’ 


points to the DTF 1. Relocate the CCW string 
points to the as 
DLBL/EXTENT 

image 

points to the 

system communication 
region 





2. Set message number indicator in open 
table to signify output. 







3. If the file is to a system unit: 
a. If X’4A3’ of the common open 
table does not indicate the file 

is opened, processing continues 







Updated DTF fields: 






Common open table: 





volume seq. number 






X'496' - the DIB address with step 4. open indicated 
X’4A3’ - system file b. If not DTFDU, continue with DTF name 
opened indicator step ‘D’. upper limit 





low limit 
LIOCS work bucket 
HDR 1 address 


c. If DTFDU is being opened, a check 
is made to guarantee single sector . 
mode processing. 

!f command chaining is indicated, 
a terminal message is issued; if not, 
continue. 

d. If the DTF indicates that it is open 
then continue with step 4. 

e. User’s DTF is updated from the - - 
DIB. Reset X’4A3’ in open table. . 

f. Exit is either made to the open 
monitor to open the next file or 

to the user’s next instruction if 

all files processed. 





DTF + 6 = symbolic unit 






DTF + 21 = file openbit 
DTF + 39 — extent sequence 


number 
DTF + 72 = chaining factor 


















44371 chaining to system 
unit. 


DIB fields: 






beginning extent 
extent sequence 
number 

end of data 
switches 

HOR 1 address 
volume sequence 
number 






11 







13 
10 
12 
17 














continue 
ithis phase 





* See LIOCS 1, $$BOPEN1 Monitor 
** SVC 11 (user’s next instruction) 
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‘ 


Chart WB. $$B3540C: Diskette Open Output (Part 2 of 3) 


Input Processing Output 


——14.If it is a system unit, but a new extent is OT Chanda: 
DLBL no more extents needed to be opened, the number of the 


DLBL bypass indicator last extent opened is placed in the DTF 
DLBL volume sequence from the DIB. 


number 
Extent = extent sequence 5,!f the file is not open, the DLBL/EXTENT 
number image that is in main storage is used, 
Extent = symbol = C unit Volume sequence number from the DLBL/ 
EXTENT is saved in the DTF. The extent 

sequence number.jis saved in the DTF. If 
the extent in main storage is not to be 
bypassed, processing continues with step 11. 




























X’'27' ~ extent sequence 
number 

X'24' - volume sequence 
number (always = 1) 

X’'26’ - communication 
switches (mask X‘80’). 



























PUB device type 
PUB2 X'02’ system 
file open 
- X'01’ file open 
on device. 


- Open table: 








X'3EE’ - 3540 symbolic 
unit number 
to system CCB. 















6. !f there are no more extents to be pro- 
cessed, this phase sets the no-more- 
extents bit in the DTF. Read the last 
extent provided into main storage. Move 
the symbolic unit to the system CCB . 

for the 3540 device. a 














7. 1f no more extents, exit is made to get 
a new extent from the operator via the 
console; otherwise, continue. 


G 


‘Get extent 
from console 


Charts 3117 


Licensed Material - Property of IBM 
Chart WC. $$B35400: Tiskette Open Output (Part 3 cf 3) 


Input | Processing . Output 


we 


an DLBL/EXTENT modifications: 
. If the file is opened, a search is done X'64’ - symbolic unit 
to read next extent to be processed 
from the SYSRES label cylinder. If 
_ the record sought is not found, 


termination with an error occurs. 


. 1f the extent is found, the extent 
sequence number is saved in the DTF. 


. If it is to be bypassed, processing 
continues with step 8. 


. Message 44831 will be issued if: 
a. Neither the DTF nor the EXTENT 
image contain the symbolic unit. 
b, PUB not for a 3540 device. 44071 no record is found. 
c. Symbolic units extent cards not 44831 invalid logical unit 


equal. 
d. Two DTFs open to same device. 
. If the extent does not contain the 
symbolic unit, it is filled in from 
the DTF. 


. Set system file indicator. 





: PUB2 +14 - X'02' system 
. Exit is made to the VOL1 label file. 
processing phase. 
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Chart WD. $¢$BCLIO2: Diskette Open Output, Determine Extents (Part 1 of 3) 


input Processing Output 


Modify extent lower limit 
in DLBL/EXTENT image. 


Registers: . Relocate CCW string. 


address of DTF . Pick up system date and arrange it in 
return address form ‘Y YMMDD’ (to be used to compare 


(entry point) ; Rese 
address of DLBL/ or expired files). 


EXTENT image 
address of system 
communication 
region , . The low order byte of the HDR1 address 
in the DTF is zeroed. . 


Modify the HDR1 address 
intheOTF, 


|} Create dummy HDR 1 label: 
bytes O- 3- ‘HDR1’ 
{bytes 5-12 - file name 
byte 24-26 - block length = 0 
bytes 28-32 - beginning 
extent = (01001) 
‘bytes 34-38 - end extent 
_ (73026) 
byte 44 multi-volume 
_ indicator — ‘C’ 
J bytes 74-78 end of data 
~  *  s= (74001) 


. The extent low limit is blanked out. 


Communication 

region : 5: A dummy HDRT label is created. If 
spooling is occurring, then the dummy 
labe! created will be used by this phase. 
If spooling is not active, the dummy 


System date (location 0) 
DTF + 30 = HDR1 label 
address. 


EXTENT + B= lower HDR1 will be overlaid by those read 
limit. from the diskette. 





. Read a HDR1 label and process it: 
Contain ‘HDR1’, yes continue. 


Does not:contain HDR1, ignore 
label, continue step 7. 
Write protected, treat as unexpired. 


‘Not write protected, test. 
label fields: File expired, continue step 7. 
HDR1 File name = new name, 


ie pees fine - terminate/error. 
write protect . . label in VTOC 
expiration date File . : 
. \unexpired : 
File name # new name, 


save highest upper limit 
in new extent low limit. 


DR 


ah 


t+++¢4+2 


OhwW 
ONATO 
How We te at 
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Chart WE. $$BODIO2: Diskette Open Output, Determine Extents (Part 2 of 3) 


Input Processing Output 


. If not all HDR1 labels processed, execute 
step 6 again. 


. When all: HDR 1s processed, begin second 
pass through HDR1 labels. 


. lf ail files on the diskette are expired, the 
extent low limit in the DLBL/ EXTENT 


image is set to 'CCHRR’ = ‘01001’. (A ) (wo) 


. If there are unexpired or write protected 
files, the highest still used sector on the 
diskette was saved by pass one in the 
extent. This diskette address is incre- 
mented to the next cylinder number, 
and record number set to 1. 

This value becomes the lower extent 


limit for the new file. It is stored in 
the extent image. (a) Qo 


. Read HDR1 label. 


. Continue with step 16 if it is a: 
a. Bad spot control record. 
b. Unexpired file. 
c. Write protected file. 
d. A non-overlapped file, with file 
name # to new file name. 
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Chart WF. $$BODIO2: Diskette Open Output, Determine Extents (Part 3 of 3) 


Input Processing Output 






If it is a delete control record 
continue with step 15. 








Write a delete control record. 





Save the address of the first 
delete control record either 
read or written, that becomes 
the address of where the new 
HDR1 will be written. | 







16. If all HDR1 labels have not 
been processed on second pass 
continue with step 11. 







17. Exit to the next open output 
phase. ‘ 
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Chart WG. $$BODIO3: Diskette Open Output, Create/Write New HDR1 Label (Part 1 of 3) 


Input Processing Output 


Registers: 


VOL1 label is updated 
to indicate a secured 
volume. (VOL1 + 10) 












address of DTF 
address of DLBL/ 
EXTENT image _ 
address of com- 


. Relocate the CCW string. 
2. Determine if there are any available Blan pul ates; 
HDR1 sectors by checking DTF HDR1 
address. If it is zero, no available sector 
was found by previous transient, and 
user‘s job is terminated with an error. 





munication region. 


DTF + 20 = DTF type 
DTF + 30 = HDR1 address 
DTF + 108 = 3540 flags for 
DTFDU 
EXTENT + 8 = lower limit 














4400! no space in VTOC 


. If there i in the VTOC, and the 
ieee 44591 invalid extent 


DTF type is not X‘IA‘(DTFDU), 
continue with step 6. 










. 1f DTFDU, acheck is made to see if 
the file being created is a secured file. 
If it is not, continue with step 6. 














. If file is secure: 
a. The VOL1 label is read. 
b. The secured volume indicator is 
turned on in the VOL1 label. 
c. The updated VOL1 label is 
written back out. 









. Blank out the HDR1 build area. (8) 
. Accheck is made to determine that 
there is at least one full track of 
available space on the diskette; if 
not, the user is terminated with an 
error. If there is space available, 
continue. 
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Chart WH. $$BODIO3: 


Input 


Diskette Open Output, 


Processing 





DTFCP/DTFDI + 96=writeCCw CT —= > 
DLBL + 9-=file ID 

DLBL + 6 = expiration date 

EXTENT + 8 = lower limit 


Communication region + 0= 
system date. 


8. Build the HDR1 label: 


eaoo® 


- 


ze 


; Note: 


. Creation dated = system date. 


‘HDR1’ - constant 

File name 

Block length field as 
Multivolume indicator = ‘C’ ° 
Volume sequence number. 
(ascending sequential) 

The determined beginning extent 
address (saved in the extent image). 
End extent address = (73026). 


WX) 


Retention period or expiration date. 


(1) Calculate expiration date out of 
retention period. 

(2) Expiration date from DLBL 

(3) If no retention period or expira- 
tion date provided, system date +7. 


End of data = (74001). 


For DTFPH, block length is always 
set to 128. 

For DTFCP/DTFDI, the block 
length is set equal to the count in 
the write CCW. 

For DTFDU, the block length is 
set equal to the ‘RECSIZE’ 
parameter value. 
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Output 


Create/Write New HDR1 Label (Part 2 of 3) 


New HDR1 label: 


bytes 
bytes 
byte 
byte 
byte 
byte 
byte 
byte 
by te 
by tes 


bytes 


0- 3 
5-12 
24 - 26 
28 - 32 


34 - 38 


41 
42 
44 
45 
47 - 52 


66 - 71 


_bytes 74 - 78 





- ‘HDR1’ 

- file name 

- block length 

- beginning extent 
address 

- end extent 
address = (73026) 

- file secure = ’S’ 

- write protect = ’P’ 

- multivolume 
indicator = 'C’ 

- volume sequence 
number 

- creation date = 
system date 

- expiration date 

- end of data address = 
(74001) 
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Chart WJ. $$BODIO3: Diskette Open Output, Create/Write New HDR1 Label (Part 3 of 3) 


Input Processing , Output 








_k. If DTFDU 354@ flag byte indicates: 
1. File security desired, set HDR1 
field to ‘S’ 
2. Write protect desired, set HDR1 
field to ‘P’ 










Note: Write protect and file security are 
not supported for DTFPH,DTFCP,or DTFDI 


9. Write new HDR 1 label out onto the 
diskette using the address saved in 
the DTF. 


10. Exit to next open output phase. 
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Chart WK. $$BODIO7: Diskette Open Output, Initialize DTF Table (Part 1 of 2) 


Input 


Registers: 


address of the DTF 
address of DLBL/EXTENT 
image 

address of the system 
communication region 
contains the 3540 maximum 
seek address 


DLBL + @= last extent indicator 


EXTENT + 7 = extent sequence 
number 


EXTENT + 8 = lower limit 


DTF +6 = symbolic unit 

DTF + 26 = DTF type 

DTF + 72 = chaining factor 
DTF + 73 = return to close flag 





Processing 


. Modify DTFDU, DTFCP, DTFDI: 


Upper limit address 
. Lower limit address 
LIOCS control bucket 
. LIOCS work Bucket 


. If DTFPH modify: 


a. Upper limit address 
b. Lower limit address 


. For all supported DTFs 

a. Save extent sequence number 
in DTF _ 

b. Set open indicator 


Reset special system open 
indicator 

. Set new volume indicator 
If this is the last extent, set 
last extent switch in the DTF 


. If this file is not to a system unit, 


continue with step 6. 
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Output 


DTF fields modified: 





DTF + 16 = system open indicator 
(mask X '40') 
DTF + 21 = open switch byte, 
open indicator 
(mask X '04') 
DTF + 4@ = extent sequence 
number 
DTF + 38 = communication 
switches 
DTF + 54 = upper limit address 
= (74001) 
DTF + 60 = lower limit address 











DTF + 68 = LIOCS control block 
= (X’0049001A') 






DTF + 76 = LIOCS work bucket 
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Chart WL. $$BODIO7: Diskette Open Output, Initialize DTF Table (Part 2 of 2) 


Input Processing 


a 





common open table, Ce > 6, If toa system unit: 


a. If OTFDU is being opened, a check 
is made to guarantee single sector 
mode writing. If CCW chaining is 
indicated, the user is terminated 
with an error. 

b. Post the DIB from the OTF. 

c. Set file open on device indicator. 


X'496’ — address of 
the DIB 





6. Exit is to: 

a, Close module, if DTF indicates open 
was called by close, because an 
extent was needed at close time. 

b. The open monitor, if more files to 
be processed, 

c. The user’s next instruction, if all 

files processed. 












* See LIOCS 1, $$BCLOSE: Close Monitor 
** See LIOCS 1, $$BOPEN1 Monitor 
##* SCV 11 (user's next instruction) 
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Output 


DIB updates: 


DIB + 10 = switch byte 
mask X'10' = 
continued file 
mask X'80' = 


no more extents 
DIB + 3 = low limit address 
DIB + 11 = last extent opened 


sequence number 
DIB + 12 = HDR1 address 
DIB + 13 = end of data address 
on the diskette 
(X'004A 0001’) 
DIB + 17 = volume seq. number 
DIB + 19 = number of records 
per track = 26 


PUB2+ 14 X'01' file open on 
‘device 


44371| chaining to system unit 





Chart WM. $$BCDUCP: 


Input 


Registers: 


2 address of the DTF, 





b. 
c. 


Processing 


1. Changes to the DTF: 
a. 


Reset the device end bit in the CCB. 
(Transmission byte) 

Indicate a 354@ in the device code byte. 
Indicate a version I] DTF in open 
switch byte. 


. Set the low record limit to 1. 


Set the record number to @. 

Set the low order seek byte to zero. 
Set the CCW displacement factor 
to ’X’@G08’. 


. Increment the address of the seek 


data in the seek command by two, 
to point past the "BB’’. 

Set the seek length to 4. 

For an input file: 

make the second CCW in the chain 
a read (only two CCWs in the 
chain). 


. For an output file: 


make the second CCW in the chain 
a write and the third CCW chain a 
no-op (only three CCWs in the chain). 
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Diskette DTIFCP/DTFDI Open (Part 1 of 2) 


Output 


Modified DTFDI/DTFCP: 


DTF + 
DTF + 
DTF + 
DTF + 
DTF + 
DTF + 


2 = transmission byte 
21 = open switch byte 
29 = device code byte 
52 = low record limit 
73 = record number 
74 = CCW displacement 

factor 
80 = low order seek byte 
89 = address of seek data 
95 = seek data length 
96 = read/write CCW 


DTF + 
DTF + 
DTF + 
DTF + 


DTF + 104 = no-op CCW 
(if output file) 
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Chart WN. $$BCDUCP: Diskette DIFCP/DTFDI Open (Part 2 of 2) 


Input 


* See LIOCS 1, $$BOPEN1 Monitor 


LICCS Velumre 2, SAM 


Processing Output 






_ DTFDI/DTFCP changes 
continued: 



















1, Set the number of records to 1. 
m. Set contro! block field to X'0G4990Q@1A'. 






DTF + 68 = control block : 
DTF + 72 = number of 
records 






2. Turn on bit in job control switch byte in 
the system communication region, to 
indicate to $$BOPEN1 that entry is from 
this phase. 










Communication region: 


X'58''= job control switch 
byte 






3. For an output file, the user’s IOREG is 
initialized. 






User’s IOREG loaded 





. Exit to $$BOPEN1. 


Chart WP. $$BODIO8: 


input 


Registers: 


2 address of DTF 


6 address of DLBL/ 
EXTENT 


DTF + 22 — file name 
PUB + @— channel and 
unit number 
DLBL + 101 = symbolic 
unit 





_'EOB’, ‘CANCEL’, 
-'CANCELV’, ‘DSPLYV’, 
‘3540GO’ 





* See LIOCS 1, $$BODSPV VTOC Display 
** SVC 50 (program terminated) 
*** See LIOCS 1, $$BOVDMO VTOC Dump 


Diskette Open Output, 


Processing 


. Relocate CCW strings, 


. Initialize CCW and instructions for 
message 445@A . 


. Read VOL1 Jabel. 
. Place volume serial number in message. 
. Issue message. 


Read operator response. 


. If response was ‘EOB’ or ‘CANCEL’, 


the job is terminated. 


. If VTOC display is requested, exit 
to display transient. 


. If ‘CANCELV’ was entered, the VTOC 
dump is fetched. 


. If the response was invalid, the job is 
terminated. 


. If the response is '354Q@GO’, this phase: 
continues. 





oa ae 
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Output 


4450A — no more 
_available extents 


Extents from Console (Part 1 of 2) 


Charts 
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Chart WO. $$BODIO8: Diskette Open Output, Extents from Console (Part 2 of 2) 


Input Processing Output 


DTF + 39 — Extent ES. 44451 too many extents 
sequence number . If this is the 256th extent, job is 


terminated. 


Build a dummy extent and update 
DTF. 


Exit to VOL1 label processing phase. 





new extent: 


DLBL + 84 = blank out volume 
serial number 
DLBL + 90= extent type = 1 


VD 


DTF updated: 
$$BODI01 
DTF + 38 = 1052 extents 
indicator 
DTF + 39 = extent sequence 
number 
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Chart WR. $$BOLIO4G: 


Input 


Registers: 
2 address of the DTF 


7 address of the system 
communication region 


In the DTF: 


DTF + 60’— end of data 
address for an output 
file for OTFDU, 
DTFPH; for 
DTFCP/DTFDI, it 
equals end-of-ex tent. 
DTF + 6 — correct symbolic 
unit 
DTF + 20 — DTF type 
DTF + 21 — DTF open bit 
— input/output bit 





Diskette Close (Part 


Processing 


10. 


. Relocate CCW string. 


. Save address of DTF. 
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1 of 4) 


Output 


Common open table: 


X'4A1' — message code 
indicator = '’5"’ 


DTFCP/DTFDI modified: 
Indicate message code close in ‘open 


common table’. DTF + 60= end-of-data/ 


end-of-extent 


Wait for completion of last |/O before address 


CLOSE. If the DTF is not open, 
continue with step 24. 





If it is a system input file, continue 
with step 24. 


If it is a system output file and being 
processed by DTFDU, continue with 
step 12. 


if itis a DTFCP/DTFDI output file 
(regardless if a system file or not), 
the end-extent address in the DTF 

is incremented to reflect end of data 
for common routines later; continue 
with step 15. 


Set up the symbolic unit in the 
system CCB from the DTF. 


If it is an input file to a programmer 
logical unit and being processed by 
DTFPH, DTFCP, or DTFDI, the diskette 
is fed out. 


If it is an input file to a programmer 
logical unit and being processed by 
DTFDU, a check is made to determine 
if feeding is necessary. If yes, feed the 
diskette out and continue with step 25; 
if feed not necessary, continue with 
step 25. 
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Chart WS. $$BODIO4: Diskette Close (Part 2 of 4) 


input Processing Output 


DTFDU: DTFDU modified: 





DTF + 16 = logic module 


. If DTFDU input file, the multivolume 
address 


indicator is reset in the DTF. 







DTF + 108 = reset multi- 
volume indicator ' 





Logic module address + 16 
should be a branch to the 
close entry point. 





. If itis a DTFDU output file (regardless 
of being a system file or not), control 
is passed back to LIOCS to complete 
any processing that is necessary. Control 
is passed back to close entry point one 

or two, depending on LIOCS indicators 

in the DTF. 






Logic module address + 24 
should be a second time to 
LIOCS close branch. 








DTF + 73 = indicators from 
LIOCS to specify 
close needs an 
extent. 








. Return from LIOCS is always at this 
point. 








. If LIOCS indicates it needs an extent, 
then this phase is exited to the first 
output open phase. If LIOCS indicates 
all processing complete, processing 
continues. 










open next 
extent for 
LIOC close 
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Chart WI. $$BOLIO4: Diskette Close (Part 3 of 4) 


Input Processing Output 


DTF: 





4506! no standard VOL1 
label 





15. If system output file and JCL close, 
go to step 25. 


DTF + 30= address of the 
HDR 1 label 










. Read the VOL1 label and verify that 
it does contain ‘VOL 1’. If it does not, 
terminate with an error. If.it does, 

continue. 









. Pick up the address of the HDR1 to 
be updated from the DTF and read 
the HDR1 label. 






Volume label +@ =’'VOL1’ 







HDA1 label: . If it is single volume file set the multi- 


volume indicator to "b”’. 
If is the last of a multivolume file, set 
the indicator to ""L’’. 





+ 34 = end of extent 
+ 44 = muitivolume indicator 
+ 74 = end of data 
















. The end of data address in the DTF is 
converted to binary and is placed in 
the HDR1. 


Updated HDR1 fields: 








Multivolume indicator 
End-of-data address 
End-of-extent address 










20. Decrement the end of data address by 
one and convert it to binary and place 
that in the HDR1 as end-of-extent 

address. 










. If no records were written then end of 
data and end of extent will be equal. 






. Write the updated HDR1 label back 
out. 
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Chart WU. $$BCLIO4: TLiskette Close (Part 4 of 4) 


Input Processing Output 


DTFDU modification: 


. If DTFPH, DTFCP, DTFDI feed the 
diskette out. 


. tf DTFDU, check to see if feeding is 
suppressed. If it is, continue with step 


25. If it is not, feed the diskette. DTF + 73 = LIOCS switches 


. If DTFDU, reset LIOCS switches (X'Q@’) 


All DTF’s 


. .For all DTFs: 

. Set invalid seek address (X'FF’). 

. Set invalid LIOCS work bucket 
address (X'FF'). 

. Set communication switches byte 
one (X’08'). 

. Set communication switches byte 
two (X‘@0’). 

. Reset unit exception (X'@1’). 
Reset switch indication file open 
(X'@4'). 

. Reset spooled end of data switch 
(X'02’). 


DTF + 3 = spooled end-of-data 
DTF + 4 = unit exception: 
DTF + 21 = file open switch 
DTF + 38 = communication 

. switches byte one 
DTF + 39 = communication 


switches byte two 
DTF + 61 = seek address 
DTF + 77 = LIOCS work 
bucket. 


PUB2 + X'@2’ reset if JCL close 
X'01' reset if problem 
program close and not 
to a system file 


. Reset PUB2 switches. 





. If another file to be closed is present, 
exit to the close monitor. If all files 
processed, exit to the user’s next 
instruction. 





* See LIOCS 1, $$BCLOSE: Close Monitor 
**SVC 11 (user’s next instruction) 
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Chart YA. TJIELF3: CNTRL Macro 


INPUT 


Registers: 
O Control character 


1 Address of DTF 
14 Return address 
15 Address of IJDPR3 
DTF + X‘14’ = DTF type (DTFPR = 
X‘08’) 
DTF + X‘09' = Address of DTFXWA 
DTFXWA + X‘00’ = Address of DTFB 





PROCESSING OUTPUT 


CNTRL 


. If not DTFPR, then cancel. 


. If fold operation, then return. 


. If unfold operation, then return. 


. Enough space in extended buffer? 


no: WAIT for completion of 
prior buffer 


Registers 0 to 15 restored. 


Restart channel program 
if overflow | 


EXCP current buffer 
yes: Chain prior CCW (if any). 


OTFB: 


DTFB + X‘14’ = Address of CCB for 
Prior buffer. 


DTFB + X‘18’ = Address of next 


. Build CNTRL CCW. available CCW slot. 


DTFB + X‘10’ = Address of CCB for 
current buffer. 


. Check FCB line position 
(tracking). 


. Return to caller. 
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Chart XB. IJDPR3: FPRTOV Macro 


INPUT PROCESSING OUTPUT 


PRTOV 







Registers: 1. If not DTFPR, then cancel. 


O User routine address 





v2; 





If not channel overflow condition, 
then return to caller. 


1 Address of DTF 







_3. If user routine provided, then 


14 Return address return to user. 


15 Address of [JDPR3 4, Enough space in extended buffer? 


no: WAIT for completion of 
prior buffer 


Registers 0 to 15 restored. 


DTF + X’14’ = DTF type (DTFPR = 
Xx‘08’) Restore channel program 
if overflow 


EXCP current buffer 
yes: Chain prior CCW (if any). 


DTFB: 


DTFB + X‘14’ = Address of CCB for 
prior buffer. 








DTF + X’09’= Address of DTFXWA 





DTFXWA +0 = Address of DTFB 


DTFB + X‘18' = Address of next 

* 5. Build SKIP~TO-~CHANNEL 1 available CCW slot. 

CCW. 
: DTFB + X‘10’ = Address of CCB for 

6. Check FCB line position current buffer. 


(tracking). 


7. Return to caller. 
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Chart XC. IJPDR3: PUT Macro 


INPUT 


Registers: 
Workarea address (if any). 


Address of DTF 


One of these registers contains 
U-format record length 


Return address 


15 Address of IJDPR3 


DTF.+ 9 = Address of DTFXWA 
DTFXWA + 0= Address of DTFB 


PROCESSING 


PUT 


. Determine address of and length 
of output data. . 


. Check if there is enough space in 
extended buffer. 


. DTFPR processing: PUT, TRC, 
FCB 


a) Non-ANSI control CCW build 
b) ANSI control CCW build 

c) Move-data to buffer 

d) Return to caller. 


. DTFDI processing: PUT, TRC, FCB 
a) Machine control CCW build 
b) ANSI control CCW build 
c) Move data to buffer 
d) Return to caller. 


. DTFCP processing: PUT, TRC, FCB 


a) ANSI control CCW build 
b) Move data to buffer 


c) Return to caller. 
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OUTPUT 


Registers 0 to 15 restored. 


1/O Register (2-12) set to address of 
next 1/O area. 


DTFB: (all processing) 


- DTFB + X'14’ = Address of CCB for 


prior buffer. 


DTFB + X‘18' = Address of next 
available CCW slot. : 


DTFB + X‘1C’ = Address of previous 
data slot in current buffer. 


DTFB + X‘'10' = Address of CCB for 


current buffer. 
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Chart XD. IJDFF3: Truncation 

INPUT PROCESSING 
SETPRT 
SEGMENT 





From SETPRT or SEGMENT: 





Registers: ~ 
O Address of logical unit 1D 













1 Address of ATX (Anchor Table 
Extension) 


ATX + 0= Address of 1st DTFXWA 
on chain of DTF XWAs representing 
DTFs open in extended buffering | 
mode 


DTF XWA + 0 = Address of DTFB 





From CLOSE function: 


Registers: . 
O Contains binary zeros 


1 Address of DTF 
DTF +9 = Address of DTFXWA 
DTF XWA + 0 = Address of DTFB 





CLOSE 
FUNCTION 
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. Scan DTFXWA chain anchored in 


the ATX to find the DTFB related 
to the passed logical unit ID. 


. Establish addressability to the 


extended buffer (DTFB). Go to 
step 5. ° 


: Check if enough space in extended 


buffer. 


. Build CLEAR-PRINT or SKIP- 
-TO-CHANNEL 1 CCW. 


. Perform truncation on extended 
buffer 


a) WAIT for completion of prior 
buffer 


b) Restart channel program if 
overflow 


c) If channel program not in 
current buffer, then EXCP 
current buffer, WAIT for 
completion of buffer, and 
restart channel program if 
overflow. 


. Return to caller. 





OUTPUT 


Registers 0 to 15 restored. 
DTFB: 


DTFB + X‘14' = Address of CCB for 
prior buffer. 


DTFB + X‘18' = Address of next 
available ccw slot. 


DTFB + X10’ = Address for CCB for 
current buffer. 





Chart XE. IJLPR3: 


INPUT 


Registers: 


1 Address of parameter list 


13 Address of 18 word save area 
(first three words of save area are 
unused) 


14 Return address 


15 Address of IJDPR3 


Parameter list: 

+0 Logical unit 10 (SETPRT) or O 
(close) . 

+2 Flag byte 
X‘80’ = FCB changed 
X’20' = Clear print issued by 
SETPRT 

+3 Flag byte (reserved) 

+4 FCB address or 0 


+8 ATX address (0 if logical unit ID 
is passed) 


+12 DTFPR address (0 if logical unit 
ID is passed) 





TEC/FCB UPDATE 


PROCESSING 


SETPRT 


. Scan DTFXWA chain anchored in 
the ATX to find the DTFB related 
to the passed logical unit [D. 


. Establish addressability to the 
extended buffer (DTFB). 


. Initialize current TRC value 


maintained in the extended buffer. 


. If FCB image address provided, 
then isolate FCB image without 
margins. 


. If overflow channels 9 or 12, then 
initialize extended buffer with 
FCB image for tracking. 


. Perform common initialization of 
both extended buffer halves. 


. Restore callers registers and return. 
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OUTPUT 


DTFR: 
DTFB + 0 = current TRC value — 


_DTFB + X’20’ = Address of FCB | 
- image within DTFB. . 


“P DTFB + X'10" = Address of CCB 


within OTFB for current buffer 
half * a 


DTFB + X‘14’ = Address of CCB 


within OTFB for prior buffer half * 


* The OTEB is divided into 2 halves, 
each consisting of a CCB, CCW area, 
and buffer area. 
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Chart XF. IJCDEE3: 


INPUT 


Registers: 
2 Address of DTF 


3 Address of SETPRT parameter 
list (SPPL) 


8 Address of PUB 


13 Address of 15 word save area 
14 Return address 


15 Address of IJDPR3 


SPPL + 4 = Last four characters of 
FCB ID 
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SAM 


OPEN INIT _ 


PROCESSING 


$$BOPR3 









. Obtain virtual storage for 
DTFXWA. 


2. Load anchor module ISDANCHX 
(ATX). 









. Scan DTF XWA chain anchored in 
the ATX to find if a DTFB already 
exists for the 3800 PUB entry 
related to the DTF being opened. 







4. Obtain storage for an extension 
buffer (DTFB). 





5. Determine if a current FCB image 
1D exists. Call FCB update 
routine (Chart XE). 







. Final DTFXWA initialization. 


. Indicate an opened 3800 DTF 
exists. — 






. Chain new DTFXWA to ATX. 






. Return to $$BOPR3. 


OUTPUT 


Registers 0 to 15 restored at exit. 


DTF fields updated: 
DTF + X‘09’ = Address of DT F XWA. 


DTF + X‘11’ = Address of IJDPR3. 


DTF XWA initialized: 
DTFXWA + 0 = Address of DTFB. 


DTFB initialized or updated: 

DTFB + X‘20’ = Address of FCB 
image. 

ATX updated: 

ATX +0 = Address of first DTF XW 
on chain. . 
Communications Region updated: 


COMRG + X’62' =Flags. X‘80’ means 
Extended Buffering DTF is open. 





Chart XG. IJCFRF3: CLOSE 


INPUT 


Registers: 
1 Address of ATX 


2 Address of DTF 


7 Address of communications 
region — 


13 Address of a 15 word save area 
14 Return address 


15 Address of IJDPR3 


DTF + X‘09’ = Address of DTFXWA. 


DTFXWA + 8 = Address of DTF. 
DTFXWA + 0 = Address of DTFB. 


ATX + 0 = Address of first DTFXWA 
on chain. 





PROCESSING 


$$BCLOS2 


. Scan DTFXWA chain anchored in 
the ATX to find the DTFXWA 
related to the DTF being closed. 


. Scan DTFXWA chain to determine 
if the DTF being closed is the only 
DTF opened for the related 
extension buffer (DTFB). Other- 
wise, go to step 5. 


. Call the truncation function 
(Chart XD). 


. Free the extended buffer storage.. 


. Remove the DTF XWA from the 
/ATX chain. ; 


. Restore DTF CCW and logic 
module addresses. 


. Free the DTFXWA. 


. Restore caller's registers and 
return. - 
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OUTPUT 


Registers 0 to 15 restored. 


: DTF fields updated: 


y. DTF + X‘09' = Address of CCW. 
" OTF + X11! = Address of logic 
i module. 
‘ Anchor Table Extension: 
_ATX +0 = DTFXWA removed from 


- Chain leaving another DTFXWA 
. address or O. 


Communications Region: 


_ COMRG + X‘62' = Flags. X’80’ bit 
_ setoff if no Extended Buffering DTFs 
- are open. 
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~BKY 
.MF114 
-P38 
-P380 
~P4y 

~ P46 
~P47 
~P790 
-P61 
ABCRTJCE 
ABOVEFE 
ACTMSG 
ADJINPUT 
ADJNCECF 
AFTERSDR 
AGAIN 
AJALT 
ALTCEM 
AUTOTERM 
BACKSPC2 
BEGINRIN 
BELCWFE 
BKSP 
BKSEACE 
BUILDLBL 
BYEFASS 
BYSTDUTL 
CALLERP 
CALLMSG 
CALLMSG1 
CALOPN 
CALOPN1 
CBDUME 
CCPTAPE 
CD25202 
CHECK 
CHECKDAT 
CHECKID 
CHKALC 
CHK FORM 
CHKIPT 
CHKLAB 
CHKLP 
CHKMOR 
CHKNUMB 
CHKPCH 
CHKPRTR 
CHKRDR 
CHKTM 
CHKTPM 
CHMOR 
CHRCARD 
CKERRCE 
CKMGTP 
CKNXJB 
CKPTR 
CKRDR 
CKRST 
CKUDSM 
CLEAR 
CLEARREG 
CLOSECD 
CLOSEFT 
COBOLWRT 
COLPCINT 
COMMON 


QF 


EC, RJ, SA 


EC 
FH 


RD 
RE 
QB, QD, OF 


QB, QE, QF 
FH 

QB, QC, QF 
QE, QC 

QC, QD 
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LIST 


COMPARE 
CONTINUE 
CONTINUO 
CONTINU 
CONTINU2 
CONTINU3 
CONTINUY 
CONTINUS 
CONT1 
CONT2 
CONT3 
CPDUMP 
CPTAPE 
CPTAPEO 
CP2520 
CUNAD 
DASDCHK 
DENSITY 
DETERM 
DETER MN 
DETPATH 
DETPATH1 
DISKERR 
DISKS 
DISK2 
DISK5 
DONTBUMP 
DOREAD 
DOREWIND 
DOUBL MSG 
DTFPHFLE 
DUMHDR1 
ENDFOR 
ENDOPD 
EOFBLDWT 
EOFSKIP 
ERRMSG 
ERROP 
ERROR 
EXC 

EXCP 
EXDATE 
EXEC 
EXIT 
EXITCLOS 
EXITLAB 
EXITMON 
EXITNLAB 
EYITNLB 
EXITPT 
EXITRDR 
EYITRIN 
EXMFCM 
EXPDATE 
EXPIRCHK 
FCHMSG 
FETCHALT 
FETCHIT 
FETCH O7 
FINISH 
FIRSTCD 
FORTU NL 
FRMTBL 
FRSTINST 
FRSTINST 
FSTM 


RH 
FD 


SD 
SC 
SC 


RG 


RD, 


RD, 
RD 


QD 


RE 
EK 


AD, 


QB, 


RC, 
RH, 


RH, 
RH, 


RJ 


RK 
EB 


SA 


SA 


EL 


QE, 


RE, 
RM 


RM 
RM 


OF 


RH, 


RM, 


SB 


GETADDRS 
GETDATE 

GETDEFLT 
GETOPN 

GETPURB 

GOSENS 

GOTCIC 

HDRBLD 

HDRCHK 

HDRCHKX 

HDRCHK2 
HDRMSG 

HDRWRITE 
HDR1CHK 

IGNOFE 

TJCA2¥XX 
TICA3XXYX 
IJCASXXY 
TICAG6YXY 
IJCBXXXY 
TICEXYY 
IJCMBXY¥Y 
TJCMCXYY¥Y 
TICMDX¥XX 
IICMEYXY 
TJCMRYXY 
LICEKYXY 
IJCPNXXY 
TICEYXXX 
IIJCPZYXY 
LICRAYX¥ 
IJCRBYXYX 
LTICRFYXY 
IJCRIXXY 
IJCRV¥YY 
IJCROXYY 
TICXXYXY 
IJCOOXXX 
TIC30XXX 
TJC 23XxXX 
TJIC34XX¥Y¥ 
IJC35¥XYX 
TJIC36XXX 
IJC 38FXX 
TIC41XX¥X 
TIC4U2¥XX 
TICU3XYY 
TIC4UXYXX 
TIC50¥X¥ 
IJC9I6XX¥ 
LICOTYXY 
TICIBEXY 
IJDEKYXY 
IJDPM¥XX 
TIDPRYXY 


IJDEUXXY | 


IJDPWYXY 
IJDEYXXX 
IJDPZXXX 
IIDQO¥YY 
IJDQ1XXX 
IIDSRXYX 
IJD51¥X 
IJD52X¥X 
IJD53XX 
IJD59XX 
IJD70XX 
IJE_END 
IJE_ENDD 

IJE_IGN1 
IJE_RSTR 
IJE_TLST 


Al 


AM 


AM 


IJE_WLR 

IJEGLCCW 
IJEOC HNG 
IJEQEND 

IJEOEXIT 
IJEOP 256 
IJEORCLN 
IJEOWRT1 
IJEOWRT2 
LJE2CCMP 
IJE3CLR2 
IJE3END 

IJE3ECFR 
IJE3LNXT 
IJE3MOVE 
IJE3MVRM 
LJE3READ 
IJE3RRED 
IJE3STSD 
IJE3STTR 
IJE3TRMV 
IJEYCLR2 
IJE4EXIT 
IJE4STSD 
IJE6TLST 
LJE6X XY 

IJE7TCLR2 
IJE7VEND 

IJEVEXIT 
IJE7MOVE 
IJE7M VRM 
LJE7P 256 
IJE7SCCW 
IJE7STTR 
IJE8BRKN 
I JES8ENDD 
IJE8EOFL 
IJESEXIT 
IJE8P 256 
IJE8RSTR 
IJESIGN 

IJEINOTR 
IJEOR MN 

IJEQRSTR 
IJEOTLST 
IJEQWRT 

IJF_BCK 

LJF_BCNT 
IJF_BCNT 
ILJF_CHNG 
IJF_CHNG 
IJF_CNT 

IJF_COMP 
IJF_CONV 
IJF_DBL 

IJF_EFE 

IJF_EFE 

IJF_EOFF 
IJF_ECFF 


IJF_EOFV. 


IJF_EOFV 
IJF_ERR1 
IJF_ER1 
LJF_ER2 
IJF_EXDT 
IJF_EXIT 
IJF_EXOT 
IJF_EXT 
IJF_EX1 
IJF_EX3 
IJF_FDBL 
IJF_FEO 


Appendix A. 


CJ 
CQ 


DS, DT 
DR, DU 
DT 
DF 
DS 
DL 
DO, DT 
DF 
DD 
Dc 


Label Cross-Reference List 


Licensed Material - Property of IBM 


337 


Licensed Material - Property of IBM 


IJF_FEC1 DC 


IJF_FEC2 CC 
IJF_FTI DP, DT 
IJF_FT1 DC 
IJF_GBC DI 
IJF_GET Dr 
IJF_GETB DD 
IJF_HRU CLI, DT 
IJF_HRUS DQ 
IJF_HU2 DL, CQ, DT 
IJF_IGN DQ, DT 
IJF_IGNR DE, CS 
IJF_INFL DP 
IJF_ICCK CC, DT 
IJF_MAI DL 
IJF_MCVE DW 
IJF_MVCR DW 
IJF_NERX LE 
IJF_NICI DQ 
IJF_NCPR DC 
IJF_NRXT DS 
IJF_FARL LE 
IJF_PUT DG 
IJF_PUTB cG 
IJF_PUTW DG 
IJF_FUT1 LG 
IJF_RCK DV 
IJF_REL Dd 
IJF_REST cW 
IJF_SKI DP 
IJF SKIP CE, IS, DU 
IJF_TEST DI 
IJF_TR DV 
IJF_TRI DV 
IJF_TER LV 
IJF_TRU DJ 
IJF_VER1 rv 
IJF_VER2 DV 
IJF_WHV DW 
IJF_WCRK DW 
IJF_WRK LW 
IJF_WRK1 DW 
IJF_WSR DW 
IJF_YSOT DE 
IJFFBCKW DL 
IJ FFCON DI 
IJFFCSVC DN 
IJ FFIGN DI 
IJFFRCK DN 
IJ FFRCT DI 
IJFFSTD DI 
IJFFTET DI 
IJFFVRS1 DN 
IJFFVES2 DN 
IJFNOPK DT 
IJ FNRDWR DW 
IJFRDCBN DL 
IJFREX2 DQ 
IJFRNICC DG 
IJ FRNOPD DD 
IUFRNCER DC 
IJFRYSPD DD 
IJFSCNTS DE 
IJFSCNTT DE 
IJFSCNTU DE 
IJFSCNIV DK 
IJFSECVS DF 
IJ FSEOVI DR 
IJFSECVU DF 
IJ FSECVV DR 
IJFSECVW DK 
IJFSGETS DL 
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IJFSGETT 
LIJFSGETU 
LJFSGETV 
IJFSMOVS 
LJFSMCVT 
IJFSPUTC 
IJFSPUTS 
LJFSPUTT 
LUJFSPUTU 
LIFSPUTV 
IJFSSHF1 
IJFSSHF2 
IJFSSHIF 
IJFSSQER 
IJFWCHEK 
IJFWC TL 

IUFWEYCP 
LIFWEXT 

IUFWFND 

LJFWF SF 

IJFWIGNR 
IJFWNOTE 
LUFWNEXT 
LJFWOUT 

LUFWPNTR 
IJFWPNTS 
IJFWPNTW 
LJFWRIT 

IJFWSKIP 
IJFWSTOR 
IJFWIEST 


_IdJFXFCR 
LJFXFORW 


IJFXFWD 
IJFXIGN 
IJFXLCOP 
LJFXLTST 
LJFXYPAD 
IJFXRCT 
IJFXYRST 
IJFXTDCH 
IUFXTRA 
IJG1IXX¥ 
IJJASCNQ 
IJJASCN1 
IJJASCN2 
IJJCAL2 
IJICEXEY 
IJJCFOND 
IJJCNDSK 
IJJCNOFK 
IJICPCAL 
IJJCP DSK 
IJJCPEND 
IJICPEOV 
IJJCPFA3 
IJICPFO2 
IJJICPFO3 
IJJCPFO4 
IJJCPF13 
IJJCPF14 
IJJCPGP 
IJJCPIO 
IJJCPLUP 
LJJCP SLD 
IJJCPSLO 
IJJCPST 
IJJCPSTO 
IJJICP TOV 
I JJICPUNX 
IJJCPWDE 
IJJICP 10 


NE, 
ND, 


NF, 
NF, 
NF, 
NF, 
NB 

NB 

NC, 


NC 
NG 


NG 


NG 


NG 
NF, NH 


NH 
NH 


NH 


NE 


IJJCP210 
IJJC1RT 
IJJC2SLO 
IJJEXEC 
IJJE1¥XX 
IIJE5XXX 
IJJE6XXX 
IJJF UX¥X 
IJJF 3 
TJJF3XXX 
IJJF5XXX 
TIDF6XXX 
IJJF 8¥XX 
IJJFOXXY 
IJJG3X¥¥ 
IJ JG6X¥X 
IJJG8XXX 
TJJH4YXX 
IJJH5SX¥¥ 
IJJH8XXX 
IJJIOYXX 
TJIJIOXXY 
IJII 1XXX 
TIJDITXXY 
IJ TIBXXX 
IJIK5U¥X 
IJIK6XYY 
IJIKBYXY 
IJJLEXXX 
IJ IMOV 
IJIM2¥¥X 
TJIM3X¥X 
IJIMUXXY 
IJ IM7T¥XX 
IJINCNED 
IJJNCSK 
IJJPWT 
IJJIRTEN 
IJJSAVE 
IJJTEST 
IJJUNITX 
IJJWCHEL 
IJIWINK 
IJI¥XXXY 
TJII10¥XX 
IITU4XXY 
TIT4BXXX 
IJMABYYX 
LIMAIXXY. 
IIMA 1¥X¥ 
LIMA2¥XX 
IJMBAXXY 
LIMBDYXX 
IJMBEXXY 
IUMBFYXX 
IJMBIYYY 
TUMBIYXX 
IJMBMYYX 
LIMBRYXY 
IJMCEXXX 
LIMCLYYX 
IJMCM 
TIMCNYYX 
IJMCO 
TIMC2 
IJMC3 
LIMDRYXX 
IJMDYYYY 
IJMEC 
IJMEO 
IJME1 
IJMF2 


NG 


PB, 


PF 


PE 
PD, 


EC, 


PC 
PE 
PB, 
PB, 
EB, 
PB 
EB, 
NE, 
ED, 
PD, 
PF 
NE, 


NC 
NE, 


NG 
NG 


BQ 


PC 


PF 


PE 


PC, 


PC, 
PC, 


PC, 
NG 
PF 
PF 


NG 


PE 


PE 
PE 


PE 


IJME3 
TIME3¥YXX 
IJMEY 
TIMES XXX 
IJME5 
IJME6 
IJME7 
IJME8 
IJMES 
ITJMGBXXY 
IIMGOXXX 
LTIMM2 XXX 
ITIMM3YYY 
LOMM4 XXX 
IJMOGXXX 
IJIMRD 
LJMRDXXX 
IIMRG X¥X 
LIMRLXXYX 
IIMRT XXX 
LIMRTXYX 
LIMRUXXY 
IIMRX XXX 
ITIMRZX¥X 
IIJMR1XXX 
IIMR3¥XX 
LUMR4XYY 
TIMR5SXYXY 
IIMR8BXXY 
IIMROXYX 
IIMSAXXX 
LIMSB X¥X 
LTIMSCXYY 
LUMSKXYXX 
IJMSO 
TIMSQYYX 
Tgmso 
IJMS1 
IJMS2 
IJMS3 
IJMS5S 
IIMS6 
IIMS7 
IJMS8 
IJgMS9 
LOUMTAXXX 
IIMTB XXX 
ILIMTCXYX 
LTIMTD XXX 
ITOMTEXYZX 
LUMTF XX¥ 
IOMTIXYX 
TIMTIXYY 
ITOMTKYYY 
LOMTLYYY 
IIMTMYXX 
IIUMTN XXX 
IIMTOXYY 
TIMTOXYYE 


 IIMT1X¥X 


I IMT2 XXX 
IIMT3 XXX 
IIMT5 X¥¥ 
IIMT6 XXX 
LIMT7YYX 
IIMTBXYX 
IIMTOXYX 
IIMUAYEX 
IJMUB XX¥ 
IIMUCXYY 
IIMUS XXX 
IIMUTXYX 
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A. Label 


BU 
BJ, BU 
BJ, BU 


BM, BS 


BN, BS 
BN, BS 
BN 
BN 
BN 
BN, BT 


BL 
BM 


BS 
BN, BS 
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IIMUUXYY 
ISMUVYXX 
IJMUWYEY 
IJMWEXYYX 
IIMWT 

IJMWIXYX 
IIMWWXYY 
IgMW1 

IIMW2 

IgMW3 

IOMZBYXX 
IIMZCXXX 
IJMZDYXX 
ILIMZEYYY 
IIMZI¥¥X 
IJNZKYXY 
ISMZLXXX 


IJMZC¥YXX 


ITM 10XXX 
ITIM2MYXX 
IJETXXYY 
IJ3SG720. 
IJUADCNE 
IJUAGAIN 
IJUCALLW 
IJUCHECK 
IJUCHEK 
IJUCKMES 
IJUCLEUF 
IJUCLOEX 
IJUDISDL 
IJUDISEN 
IJUENDTS 
IJUENDWT 
IJUENGCK 
IJUENLST 
IJUEXIT 

IJUFEED 
IJUFETCH 
IJUGETCK 
IJUGEYIT 
IJUINCR 

IJUINIT 

IJULITE 
IJULCAL 
IJULOUT 
IJUNXTBF 
IJUNXTL1T 
IJUOLDNW 
IJUPRCC 
IJUPSTCE 
IJUPSTOV 
IJUREAL 

IJUREGAD 
IJURETRY 
IJUSETPT 
IJUSHIFT 
IJUSVC1 

IJUTIDSN 
TJUTSTAS 
IJUTSTFC 
IJUTSTRF 
IJUTTRFC 
IJUTUE 

IJUWAITF 


IJUXCPREG 


IJWREAL 
II2ZEXXXX 
IJ 2RXXXX 
II2XXXXX 
IJ 20XXXX 
INDISC 
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BT 
BI 
ET 
BS 
CE 
BS 
BS 
CR 
CE 


QD 


INDPCH 
INIT 
INITIAL 
INITIATE 
INOM 
INPUTCK 
INWKFL 
INWKL 

Io 
IOCCBKSP 
IOCCEFSW 
IOCCLEST 
IOCCOUTF 
IOCCPART 
IOCCRWIP 
IOCCRWTP 
IOCCSWT1 
IOCCWRIT 
IOCCWRTT 
IOCCXTUR 
IOCCXTWR 
IOCEALTD 
IOCENONF 
IOCENCRW 
IOCENTRY 
IOCEOFSW 
IOCEOUTT 
IOCEOVOP 
IOCEOVSW 
IOCERBTP 


IOCERELIN 


IOCEREOP 
IOCEREWT 
IOCERTAP 
IOCESBYT 
IOCESETR 
IOCESKP4 
ITOCESTDL 
IOCESTOL 
IOCESWCH 
IOCEZTED 
ITOCOBNOL 
IOCOBOVT 
IOCOBPSN 
IOCOLORT 
IOCOLEST 
IOCONOLB 
IOCONSTD 
TOCOPNFL 
IOCORENS 
IOCOREB 
IOCORFWD 
IOCORLBK 
IOCOSBLC 
IOCOTMCK 
IOCOULAB 
IOCOXITU 
IPTCHK 
ISBLANK 
ISDONE 
ISHDRINF 
ISLOADPT 
ISOPEN 
ISREWIND 
Isv3 


LABELCHK 


LABELCK 
LABELRD 
LABELSPC 
LABFND 
LABLD 
LASTCARD 


Qc, OD, OF 


QB 
QD 
QE, 
RC, 
FD, 


FF 
FF 


FE 1 
FE1 


RE 


QF 
RF, 


FF 


RJ, 


SB 


LASTOPN 
LDIOCREG 
LFCOMP 


LOADADDE 


LOOP 
MDRSBY 
MFCM | 
MFCY 

MF 1 

MF3 

MF4 

MF5 
MGTPOP 
MODES 
MOVBLNK 
MOVE 
MOVESER 
MOVEUNIT 
MSGEXIT 
MSGRIN 
MSGWRITE 
MSG10A — 
MSG11A 
MSG12A 
MSG13D 
MSG14A 
MSG15A 
MSG16A 
MSG17D 
MSG18C 
MSG19A 
MSG23D 
MSG30A 
MSG31D 
MSG32D 
MSG33D_ 
MSG4184D 
MSG8 31 
MVDATE 
NEWVCL 
NEXTDEL 
NEXTJIB 
NINETRK 
NOALT | 
NOANSWER 
NOBLNK 
NOCTLCHR 
NODEFALT 
NOHDR 
NOLBL 
NOMSG 
NOE 
NORET | 
NO RETURN 
NOREWUN 
NOTBLANK 
NOTLEGAL 
NOTOPEN 
NOVARY 
NOVCLO 
NOVOL1 
NOVSAM 
NOXPIRCK 
NREWIND 
NRF 
NSTDEXIT 
NSTIDSTL 
NVCL 
NVOLCK . 
NVOLON 
NXTALT 
NXTFLD 


QB, QE, OF 


FE : 
FD, FE 


FH, FJ, RF, RJ, RL 
ED, RH, RL 


EH, RH 


RC, ED, EH, EK, FA, FH 


ED, EF 


QB, QD, OF 
FD, FE, RJ, SA 


EK, RL 


NXTJIE 
NYTPHS 
OELFND 
OLDCARD 
ONEIA 
OPENINIT 
OTHERCD 
OUT 
PACKIST 
PCHBLANK 
PCHBLNK 
PPRT 
PRINTIN 
PROCESS 
PROCRUN 
PROCRUN1 
PROCRUN2 
PTSIO 
PT1 

PT2 
PUBADE 

P UNCHBLK 
P50 
RDAGAIN 
RDFRW RD 
READ 
READAGAN 
READBK 
READLABL 
READTAPE 
READVOL 
READ31M 
RELNEXT 
RELOCATE 
REPCHCP1 
REPCHCP2 
REPUNCH 
REREAD 
RESET 
RESTORE 
RETMON 
RETRNPT 
RETRY MSG 
RETURN 
RETURNED 
REWIND 
REWINDIT 
REWINDT 
REWRITE 
RST 
RTRYNT 
SAVE. 
SAVENUMB 
SAVSYS 
SENSE 
SENSEX 
SETBIT 
SETCCB 
SETDEV 
SETEOB 
SETEXIT 
SETOMR 
SETOPEN 
SETOP NBT 
SETPHASE 
SETPHS 
SETPNT 
SETPUB 
SETSEQP 
SETSW 
SETSWCH 
SETUPRD 
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FH 
RA, RD 
AD 
ED, FD 
SD 
SA 
AC 
BE 
AD 
SC 
SD 
OR 
QB , 
EH, PH, 
RG, RK, 
RG, RK, 
RK, RL, 
SC 
SC 
SC 
QC 
SD 
AK 


EA, EB 
RA, ED, 


QB, QC, 


PG, SD 
FB, FO, 
FA, EK, 
EA, ED, 


QC, QD 
RB, RE 
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RK 


QD, SC 


RB, SC 
FH 
FG, FO 
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SET3886 


SET7 MODE 


SEVENTRK 
SHIFT 
SKIP 


SKIPBLS 
SKIPFWD 
SKIPMSG 
SKIPO 
SKIP 1 
SKIP2 
SKPVOL 
SP 


SPACEFWDL © 


SRCHLAB 
STARTIO 
ST KON 
STMOD10 
STOR 
STRTOP 
SVCALL 
SVNTRACK 
SYSLCAL 
SYSNO 
SYSO 
SYSO 
TEST 
TESTASC 
TESTREW 
TIIM2X¥XX 
TMPEBRE 
TMWRITE 
TOEXIT 


BE | 


BE, EG, EH, EK, EL, FA, 


FC, FD, FE, FH, RJ, SA. 


QA, QB, QD, QF 
EL 
EG 
QE 
FH 
Cr 
QA 
EA 
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TRANS. 
TRANSENT 
TRASCII 
TREWIND 
TSTLAB 
TSTPC H 
TSTRNG 
TYPE 
UNTPCE 
UNTRC 
UNTRCP 
UPDATE 
USDSTM 
USER 
USERRTNE 
USERTEST 
VOLSKIF 
VOLSKIP1 
VOLICHK 
VOL800 
WHDRS | 
WORKFILE 
WRITE 
WRITETAP 
WRITHDR 
WRITMK 
WRITTM 
WTDEVED 
XYZ 
YESLDPT 
Y ESOPEN 
YESREWND 
YESTM 


FA, 
SB 


QE, 


OC; 
OB, 
EF, 


RL 
RL 
RL 
RE 


FC, FD, FE, 


QFr 


QD 
QC, QF 


Ed, FB, FD 


FF 
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APPENDIX B: MESSAGE CROSS-REFERENCE LIST 


For further detailed information on these messages, see VSE/Advanced © 
Functions Messages, SC33-6098. 


aaa en een ee a nn nee aa a a Ae | 
|Message|Issuing | I | 
{Number jRoutine |Chart|Message | |: 
a rr eae ar ee nanan amemaeniaiamene | 
}4000I | CDMCTC } AL | RETRY 

| [S$PERRTN| PG | | | . we a 
| [$$BCLOSP| SC | oe a | 
i l | sv | | il 
Sea a Se ee ee ee a 
14n051 | S$E2CEOCV1| EM | UNRECOVERABLE I/O ERROR ee | 
| IS$$ECCPT1] SE | : | | 
a re re ee aS ee en 
14110A |SSECMTO3] ED - {NC VOL1 LBL FOUND TLBL=xxxxxx filename SYSxxx=cuu ee | 
| {$$BOCPT3]{ RI [| |. | fap. Be 
eee ee | 
14111R |S$S$ECMTO1{ EA [NO VOL1 LBL FOUND filename SYSxxx=cuu: ~ of 
| |$$BOCPT4]| RL | , 


{(4112A |SS$BOMTO1] EA |VCL SERIAL NO. ERROR TLBL=xxxxxx filename SYSxxx=cuu a i 
| {S$S$BOMTO3| ED | | | { 
{ {S$BOCPT3] RH | | oo | 
| | {SS$BOCPT4] RL | | 





14113D |$$BOMTO1] EA |NC HDR1 LABEL FOUND filename SYSxxx=cuu ? | 
141131 |$$BOCPT4| RM | _ | 
| -------4--------4-----4 --------------------- —- —--- ---- —- - | 
{4114A {SSBOMTO1] EB {FILF SEQ NC. ERROR filename SYSxxx=cuu | 
{ {| $$ECCET4] RL | | 
| a an a a a rane | 
14115A |SH$EOMTO1] EA |FILE SER. NO. ERROR TLBL=xxxxxx filename SYSxxx=cuu | 
| {FSECCPT4|] RL | { 


| -------4--------4-----+--- 





ED ED ERD ED ERED Se EES SOD AEE ED aS EES eee ee 





AD AED A ET GOED RAED SR ED EE SAS GE EADS ENE AED AEE MERE OE ED ACD CUED AD me GED OEE ERD ee AES AED ED CAE CED tio | 


14116A |$S$ECMTIO1{ EA |VCLUME SEQ. NO. FRROR filename SYSxxx=cuu | 
i ($$EOCPT4| RL | 





+ 
14117D  |$$ECMTOZ| EC |NC TM FOUND ON READBK filename SYSxxx=cuu 
| {$$BOMTO5] EG1 | | 
|-------4}--------4-------------------------- -_--- --------- --------- | 
141180 |$$ECMTO2| EC |FILE ID ERROR, READBK filename SYSxxx=cuu 
{4118 | | 


14119A |{S$H$ECMTO3| EE |FILE UNEXPIRED filename SYSxxx=cuu ] 
| 1$$BOMTO6| EH | 
{ {$$BOCPT3|{ RH | 





ee a SSS ee Sa ara | 
{41201 |$ECMTIO3] EE |TAPE POSITIONED WRONG filename SYSxxx=cuu | 
ea A nn rn a a rae anne | 


{41Z21A |SSBCMIO7| FH |NO ALTERN DRIVE ASSGN SYSxxx=cuu | 


| -------4--------4-----4 -----------------------------— —----------------------------——- | 


}412ZI |S$SBCMTIO7| FH |ECV ENCOUNTERED SYSxxx=cuu j 


—----- ~-------}---—- --------------------- — ---- -- = | 


{4123D |S$$BOMTOZ2| EC |WEONG POSITN, READBK filename SYSxxx=cuu i 
{41231 | { | | 


| ----—--}----~---+-----4-—-—----_--------------__- ------- -----------------------—-—+ | 


14124T |S$S$BOMTIC4Y| EF |{TCO MANY UHLS. filename SYSxxx=cuu ' 


| -------4-------~4-----4---___------------------_-_- ------------- ---- —--------------— | 
{41725D |SSEOMTOS| EG |VCL1 LBL FOUND filename SYSxxx=cuu | 
J4125Ir | | | | 
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i SSS a ae ne ee ga Se eee ee Rp ne eg eg eee Re 
|Message|Issuing | | . [ 
{Number | Routine |Chart|Message | 








SS ee See ee ee 
{412€I |SS$ECMTIO2] FE |ECV ENCOUNTERED filename SYSxxx=cuu | 
[Sane ee ee 
141Z7A |S$HBCMICE| FE |ECV WHILE WRITING ECF | 
Se Fs SG oa gm DR SS eS ee ae eee 
14130A |$S$BCMTO1] FA {ECF OR EOV INQUIRY filename SYSxxx=cuu : | 
Ym nr nena | 


14431D |S$$BCMTO1] FA |BLOCK COUNT ERROR filename SYSxxx=cuu DFT=xxxxxx LBL=xxxxxx { 
IS$BCNTO3] FC | | 


—------}--------}-----}--------------------—- 





{4743 2D {SS$BOMTO1] EA {EFROR IN FILE ID filename SYSxxx=cuu | 
| {$$BOCPT4| RL | 

, a a ee 
(4122D |S$S$BOMTC1] EB |EFRCR IN HDR LBL filename SYSxxx=cuu | { 
{ 1S$S$ECCPTI4] RL | | | 








------- $--------4}-----4--------—------- === - | 
141740A {S$$BCMTC2{ FB |NO ALTERN DRIVE ASSGN filename SYSxxx=cuu | 
| -------}-------- 4 -----} ----_-- ------------------ ----------- ---------_--------—-- | 


14151I |$$BOMTO1! EA |HDR1 LBL INFORMATION filename SYSxxx=cuu | | 
| {S$S$ECMTOG| EF | : 





ED RED CERES GETS GRE mA CED cou eES SIND GERD SEL CRIED. SERED SSD OSTED CUED GHRED CUED eu CHDED CFOS OE SEEED EEE Gas RS eens erwas A cm <A cS ey aa | 


| + 
{14170A |$$EICOPT|] EK |FILE PROTECTED TAPE SYSxxx=cuu | 


come ce came comrcanen come et afl cen came mecca em ae some mo nf a eee 





[4171A |$S$BICOP1] EL |UNEY¥PIRED FILE SYSxxx=cuu i 


|------ -+-------- $-----4-—--—------—--- ——----- 
14172A |$$BICOP1] EL |fINVALID LABEL SET SYSxxx=cuu 


| -------4-------------4 -_--__---_------—----— 





SE AGED EUS SESE TED CREATE ORIG CME OPEN EEEGD CRED CREDELOTE GED GPSS CYNE OGRE CE) ES EEE CREED SP ED GEETD SED AUD GOD ee ED EP AED | 





141831 {S$SECMTO1] EA J INVALID LOGICAL UNIT filename SYSxxx=cuu 
[fS$BOMTO2] EC 
{$$EOMTO3| EL 
ISS$BOMTCE| EH 
| SS$EICCET] EK 
{SSECMTO1] FA 
1 S$BCMTOS| FE 
[| SS$BCMTO7{ FH 

ee fmm ne eis sc ens i yl cS Se ues eu ee Caan Si ub Ss a i an clas ab Gm ‘cs cs i <i ce is is ise i ele ws emi ens mi le ges ins mi -ei ei r a ais ia sniy 

14184D |S$S$BOCCPTI2]| RE |NEEL FILE PROTECT RNG filename SYSxxx=cuu 

{ {S$S$ECCPT2| RF | 

[$$BOCPT3] RJ | 

| a rere eee eneeeeeeneniannainammamemiat ma | 

14185I |$$BOMRCE{ AC {INVALID FORMAT CARD (S) | 

{S$$BOMRCE| AD | | 


---—-----------}-----} ---------- ----------— 








(14400I |SSBODIC3{ WG |NO LABEL SPACE IN VTCC or NC RECORD FOUND | 


(4301I |S$S$ECLTICS| VF |{NC FORMAT 1 LABEL FOUND or NO RECORD FOUND | 


Co ee ree cecinn AP A CED NY SED TUES SAS EY TY AS AY AD A AIL NETS AED A AD A I OOS ST NS SED cave AOE GREY SEED <TD ES 


ES CE cea Clie CEE AD AD ERD PEE ENDORSE ETE CHEE SED ee OTD NS RDS A OTS ERS NE A AED RT ED SD RS CED 





ED SE CED GEER CSS CCST TED I SS OE FLED SP SD SS in cme ma si ns pm’ eth i: a ei ea al 
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Ce rt ee FT a ga a see ere eee eee ee 
{Message|Issuing | i | 
{Number |Routine |Chart|Message | 


| -------4~--------}-----}--------—-------------------- ---------—---—------------------ | 


143062 |$BODIO1] VD |NC STANDARD VOL 1 LABEL or NO RECORD FOUND 


i 

| 
145061 |$$BCLICu] Wr | 
------ ~-----~-4-~---}-—-——---------------- —--- ---- --- = --- | 
[43071 |$$E35400] VC {NO PECORD FOUND | 
mens we as eee ae UE ee -——-—— | . | 
[4407 |$S$P354COT WC | | 
~~-----4------- ~---- ------ ---- ----- + += - | 


[43290 |$$B354CT] VC |EYIFNTS NOT EXHAUSTED | | | 


| -------}--------4----- --------------------------- ------------------------- == | 


{433ZI |SSBODIC5| VH |VCLUME SEQUENCE ERROR | | ae 


{43371 |$$B3540I] VA |CHAINING TO SYSTEM UNIT | 
t |$$BODIC6| VM | 


+ 
[44371 ($$B354C0O| WA | 
| [S$SECDIC7{ WL | 


| -------4--------4-----4-------------------------—- --------------------—-------—-- + | 


[4445I |$$BODICE| WO {TOO MANY EXTENTS | | | —, | 


| -------4--------4---+ ----—-- -__- —------- -----_--- —--------------------—-----—-— | 


{4348 |$$B35400| UE | SYSIN/SYSOUT UNSUPPORTED { 


|------ —+------- ~}-----}-—------------ += ne | 
(4450A {SS$BODIC8| WE {NC MORE AVAILABLE EXTENTS , . | 
eis Se cess sein lass pia al eas a | 


(4355A |$$ECLIC1| VEC |WEONG PACK, MOUNT nnnnnn - | | 


RNY RAE RD eh ASIEN GIO ED en OETA TT SE AED CESS CREED ES OEE CUD ADD REY GEES CUES ARLE CEES GENET CSIR CNG CURT EEK) ND MEL CED SED GD SES SUED ANS AID E-ATED RESRD ART REID PEDO GED OURS ERS OECD CD END REIS ED AED een COE SEY AED COS GED GS GED GED ALND EGY CESNEESD CEES GIDE AT AEGIS ST T CHND COT | 


{435eT {$S$E35400] UF |NO EXTENT FOR OUTPUT FILE | | 
i a a a a a i aa aa eis es i ia Sem eis ng ls i ee “ees Sts eS Si ts ni Si nv Ss Si cae | 
,4259T {SEBCDICES| VK {INVALID EXTENT | 
i {SS R2CLIC6| VL | 


| 
| -------+ --------4---—- | | | | 
{4459I |$$ECLIC3] wc | | 


~------}--------}—----} ------- --- -------- + | 


(4360% |S$S$B354CO0| VB |NC EXTENTS, ALL BYPASSEL | | 


| -------~--------+-----+ -—-______ ------_---- --__ --_----------------------_------—- | 


{4S61I |SSBISUCO, UF |JINVALID DLBL FUNCTION | 


------ ~---~---}-----4-—------------------ ------- | 


[43641 |$$BODIO5S| VF {INVALID HDR1 LABEL | 7 
| {$$BODIC6| vm | 





(44EET |SSBOLIOZ| WD |ECUAL FILE LABEL IN VTOC | 


a es a ew his eh Sh es es ee CRY eS CTD AD EES NED ELE NAD ENED STD AOEED GALTD ATEN LLL EES ERS SEND SLY SEMEN cmp SERN <NS aR a cn: des seie e ccs S is  sii acnch is be tess ci in aici cia 
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SSS eS Se re rg ee a en eS ey es 
j{Message|Issuing | | 3 | [ 
{Number |Routine |Chart|Message | 
= 
{4n79I |$$RCEOVI| EM |GETVIS FAILED | 
{ {S$ECCPT1|] SE | | 








~~-~~--}---+-- == ---- +} - -- + -- = = | 
}48eor {SSE2CEOVI] EM |INVALID FILE TYPE ] 
| -------4+-------- $-------------------- —-- ---- ---- -- —- - | 


(4881I |$$BCCP11{ SA |NC LABEL INFORMATION 
| |S$$ECECVI] EM | 
| |$$B35400|] UF | | 


143831 |S$S$E354O0I] VC |INVALID LOGICAL UNIT 
————— —--~-----+---— | a 
(4483I |$$ECSDC1] LM | 
| IS$$B354CO] we | 
| ——------+ ——-------+ --——— | 
14883 |S$P$ECURCI] AE | 
| {S$BCCPOT{ QA | 
| {S$$BOCP02| QB | 
| [$$ECCE11] QE | 
| [$$BOCP12| OF | 
| mm mm ae ne rece 
14884D |$$ECCEOZ| QE |NEED FILE PROTECT RNG 
| [$$BOCP11] QE | 
| {$H$BCCE12] QF | 


|4E87I |SSEERRIN| PG |SYS FILE EXTENT EXCEEDED > - | 


| -------+--------4+~-----}----_-------------------—-- ---- ---------------- —---------—- | 


148e8l  |$$BERRIN| PG |EOF CN SYSTEM FILE { 


ae ee re re ae noe 4+-—--——— —~f—-—~—-—4 — —- -—— ~~ sircieeinee ste meneame te ite mansions na si i item pilin es rei in: nist sin cm seni uneconomic sit tec sn | 


{4MR1I |MRMOD {| BE {EXTERNAL INTERRUPT I/C ERROF | | 


| -------}--------4-----}-—--------------—- ----------------- —----- —-- ---—---------—- | 


{4MR2I |(MRMOD {| BB |{SCU NOT OPERATIONAL a | 


J4PO1I |S$H$EERETF| PH |DATA CHECK SYSxxx=cuu i 


| -------} --------}-----}---_------ ------------------ + ---- | 


I4FO20 |SP$EFRETFE] PH |DATA CHECK SYSxxx=cuu 


+ ; 
IP200I |SS$BOFR2 | QG {3800 Printer Extended Buffering Mode Not Used - ] 
| | | jReason Code = xx | 


Figure 40. Message Cross-Reference List (Part 4 of 4) 
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APPENDIX C: CONTROL CODES 


CTLCHR=ASA 


ae ane ie aie ae aie a am a ae 


A control character must appear in each logical record if the ASA option is chosen. If 
the control character for the printer is not valid, a message is given and the job is 
canceled. If the control character for the card punch is not V or W, the card is 
selected intc pccket 1. The codes are as follows: 


Code Interpretation 
b Space cne line before printing 
0 Space two lines before printing 
= Space three lines before printing 
+ Suppress space before printing 
1 Skip te channel 1 before printing 
2. Skip to channel 2 before printing 
3 Skip te channel 3 before printing 
4 Skip to channel 4 before printing 
5 Skip tc channel 5 before printing 
6 Skip to channel 6 before printing 
7 Skip tc channel 7 before printing 
8 Skip tc chanrel & before printing 
9 Skip tc channel 9 before printing 
A Skip tc channel 10 before printing 
B Skip te channel 11 before printing 
Cc Skip to channel 12 before printing 
V Select stacker 1 
W Select stacker 2 


CTICHR=YES 


The control character is the command-code portion of the Channel Command Word used in 
printing a line cr spacing the forms. If the character is not one of the following 
characters, unpredictable events will occur. 


Cc AERP EE AND EOE IE EEE AOSD EEN CREM ED ERED RE UD AE GED ERE GEES ERED FEE EEES SERED EEE CTD GRO CE EES RD ED EY ES GE ES REE RIS mene SERED HERES ene em cmon Re er ee ee ee en ne ee ee ee 


{|8-Bit Code {Funch Combination] Function | 
| -—--——--—---—- -- —$ - —-— — -$ a nn | 
| | i 
{Stacker Selection on 1442 and 2596 ~ , | 7 | | 
| | 
170000001 112,0,1 |Select into stacker 1 | 


{ | . oa | 
111000001 {12,1 {Select into stacker 2 | 


| | 
(Pocket Selecticn on 2540 | | 


100000001 {12,9,1 | Select into pocket 1 | 
{ | | | 
1091000001 {12,0,9,1 |}Select into pockat 2 | 
{ | | | . | 
{710000001 _ (12,0,1  |Select into pocket 3 | 
a aa aa a a Ta a en rh ea ae 
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e 


|8-Bit Code {Punch Combination] Function { 


| AD TD GANS CENTS GEE AED CHTED CET Ct REED Ath SHEED GN GEERD ERED CTD CEES HEENS GUNES SEES QUEENS CONEY ED commana cine: aittte—aune cue wie euimna deans nee en SG) AEDS EES ATES GANT aA SENS GL RY OOD GTS OTS SETS eae AERA NEP uN SED AEE GED O SET) ONE IRD GARE arin ONED BET ariee GERD ape Or CARD A SY act EE SERIE ES “UR AINE EE EINE senc ND ee HaREREATIN CSI { 


{Stacker Selection on 2520, 


i 
100000001 


ERNE CX CID CERES SAN ERY GED ORES CETTE COLO COs CERTY GERM REINS ENED GEETT E UG DEROY CORT Mis MAE GENES CASS CURED CERT NES aD RED SEES AY ED OTA CAD ey ARNE COED er NE CRED GEE AS SAID GENES OTD EE CREP CANE AERP EMND CETEP OREN ES CEN CAGES CEE C-CLES CR MD ORES CREO UES CANO CE SEND aniien BES AR cme CHEN MAES GED CUTIE Co HU examen aa CED Gem 


| 
101000001 
l 


s 


(12,9,1 


| 
{12,0,9,1 


[Printer Control (not for 3525) 





3505, 


3525 


{Select into stacker 1 


j|Select into stacker 2 


EP CS SA MD ND ED ES ED ED A LS AES AY Cele aR SEEPS SOP SD ER SUED AID SAD D GRAS AINE OANNTID CEE ORES MUNI URAD Sen ED RRND NS aADOaID AED eaRiN MID GUERIN CHERRY SEN OND CEN CNN GRY “NN SEED AD CAEN NET CRIED CANE | 
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100000001 112,9,1 {Write (no automatic space) | 
100001001 112,9,891 |Write and space 1 line after printing 
100010001 eae ian and space 2 lines after printing . 
0014001 eee ie, and space 3 lines after printing ) 
Gounod aocoNG aeiae and skip to channel 1 sees printing 7 
110010001 112,496 eeaee and skip to channel 2 after printing | 
oodsa04 aaa avis and skip to channel 3 after printing | 
Cre ee 4 Write and skip to channel 4 after printing : 
Srey, Peerae wel and skip to channel 5 after printing | 
orien laeaaoe tes and skip to channel 6 after printing 
aOTaaos eae rusts and skip to channel 7 after printing 
111000001 aA racine and skip to channel 8 after printing | 
rene 12,9 ieeite and skip to channel 9 after printing | 
44040604 oe gett and skip to channel 10 after printing | 
111011001 14,9 Neciiee and skip to channel 11 after printing 
aap oe oe ‘geahe and skip to channel 12 after printing 
ooueTGat eee ieee 1 line immediately | 
100010014 a3 nesaee 2 lines immediately | 
100021041 eer epaes 3 lines immediately | 
pavaeaoas hapetetk Papi to channel 1 immediately 
caenieons oaaes eee to channel 2 immediately | 
erence nie aes oe to channel 3 immediately | 
410100011 haaoRs ee to channel 4 immediately 
110101011 Wee eee to channel 5 immediately : 
10490044 nee ae en to channel 6 immediately | 
[10111011 aes 11,0,8,3 ee to channel 7 immediately 7 


Licensed Material - Property of IBM 


LO CTE ERS MED RI ED qTES OTEED CAA AOD ERED Et ERED Oneey eae LOND CRIT EG OES COED GERD ED RD ees GoNTETS 





[8-Bit Code |Punch CombinationjFunction # 4 
agg ade S”:*«w eg ccs SB Gmecciataa;, =~ SCC CC 
enrenee 112, 0,9,8, 3 aus to channel 9 immediately | 
oaeoaa cna eae to channel 10 immediately 
eeer ee pean eees acs to channel 11 immediately 
errr Oa aie to channel 12 immediately 1 


| eee HONS ee EE END ent A ce castwttY SELL eLhOND RED ARAN ARID Een IRD ea SS REED MeN EN ELENA OS MAID A OLE LT CIEE SOE I cnt: ED EGS OEE ict SO ARNE ERS RED OAD Sc cere OR ES A EY ATT ND OD SEED WOR <A AND ELS I SED RED EEE ha A MENDING IRS A wD NS HD NE cela AED AED SON ID AND GE aA TREY CAD SIC 


{Printer Contre] on 3525 with Print Feature 


PE HEN ND EY CEN ETD ARES CEES GHEE GREED GARD IPSS CHIEN MED agEGED EEE EIR ETE GEN ERED CSTD GRMN SIE CRETE CARSEAT ED SAA ED REND SEN SERED EAD AOE MEE MAE MOORE ED SEND SND CSD SEED STEED CORES AS ARENT ED AEE EY ERY ER ALN AES CELE oY EI A ED IS SE OTP SD AEE MIAO IS RSS ATTY GREE SSID CUE GEERT AORAND TAD OSE CRIED CEO SEE 


{00000011 
100001104 
(00010104 
CELE 
100100101 
100101701 
100110101 
100114104 
101000104 
101001104 
10101004 
101011101 
101100101 
101101101 
101110101 
104111104 
eogored 
110001101 
110010101 
110011101 
110100409 
140101101 
110110101 
110111104 
144000101 
111001101 


112,0,5,8,9. 


12,9,3 
12,5,8,9 


11,5,9 


11,5,8,9 


© 
. 
Ul 
« 
wo 


o} 

« 

ul 
- 

fe a) 
oO. 


o 


ond 2 cn tn 
nw) W\) es . . 
~ « CO’ oO 
in. So « 
~ * wo 
CO (Sa! 

~ 

O 


a } 
NO 
es 
aad 
a) 
~ 

uy 
io 


e 


oon ee © 2 
OND bd 
= © 
>) © . 
~ 
uw 


ma 
A) 
* 
« 
in 
= 
© 


12,11,5 
12,11,5,8 
11,0,5 
11,0,5,8 


= 

N 
° 

U1 


12,11,0,5. 


12,11,0,5,8 


{No operation 


| Print 
ft 
{Print 
} 


{Print 


| 

| Print 
i 
|} Print 


| Print 
See 
ere 
eens 
ee 
are 


| Print 


Posted 
ioeaae 
a 
tak 
‘oeee 
Lagan 
egies 
errr 
ee 
ects 
ae tat 


| Print. 


ai aes ws Sa cr cel cians ean ace ED AD ED SED UES A EP TRS CD CEA QE CD CEO GREED ATED CT 


| Print 


on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 
on 


on 


line 
line 
line 
line 


line 


10 
11 


an ep geese cee eee ee ee 
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contains a master index to LIOCS Volumes 1, 


alternate switching 
ECV, tape 94,95 
system units, tape 98 
ANSI control codes 347 
ASCII=YES, DTFCE macre parameter 104 
associated files 22 


BSI (buffer status indicator) 30 

buffer (MICR) 31 

buffer status indicator (BSI) 30 

buffer truncaticr, 3800 printer 51 

bypass checkpoint records routine 88 
detail charts 210,217 

byte, sync 39 


card device files (CI) 13 
CDMOD 22 

CNTRL macro 2Z2 

CNIRL macre, detail chart 151 

GET macro 22 

GET macro, detail chart 152 

PUT macro 22 

PUT macro, detail chart 156 
CHECK macro 

MRMOD 30 

MEMCL, detail chart 163 

MTMOD work file 84 

MTIMOD work file, detail chart 198 
checkpoint reccrds, bypassing MTMOD 88 
CISIZE, compiler files (DTFCP) 104 
close routines 

alternate switching for FOV 95 

alternate switching for system units 98 

diskette 135,139 

DIFCP/DTFDI tape files 124 

CUMODFO 135 

DUMOLDFO, detail chart 295 

FOF kackward 95 

ECF/ECV input forward 94 

ECV output forward 96 

IJDPR2 52,335 

magnetic tape except work files 97 

MICR 33 

cptical reader files 45 

paper tape files 52 , 

printer files for 3800 52 

punch files 125 

unit record files 12 

work files 9E€ 
CNTRL macro 

COMOD 22 

CDMCC, detail chart 151 

DRMCD 43 

DRMOD, detail chart 182 

TJDPR3 49,329 

MTMOD 

data file €4 
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LIOCS Volume 


1, LY24-520, 
3, and 4 - “A 


data file, détail chart 199 
work file 84 
work file, detail chart 199 
ORMOD 37 
ORMOD, detail chart 169 
PRMOD 48 
PRMOD, detail chart 185 
printer files for 3800 49,329 
COBOL, input file closing 97 
combined files (DTFCD) 13 
compiler files 103 
characteristics 104 
CPMOD macro 111 
DTFCP macro 103 
initialization and termination 120 
logic module (CPMOD) 111 
console files (DTFCN) 23 
close 23 
DTFCN macro 23 
GET macro 23 
GET macro, detail chart 160 
open 23 
PUT macro 24 
PUT macro, detail chart 161 
control codes 347 
CPMOD macro 111 
GET 
IOPTR=YES 113 | 
IOPTR=YES, detail chart 251 
one I/O area 113 
one I/O area, detail chart 251 
two I/O areas 112 
two I/O areas, detail chart 250 
TRC=YFS 112 
TRC=YES, detail chart 333 
parameters 111 
PUT 
IOPTR=YES 114 | 
IOPTR=YES, detail chart 256 
one I/O area 113 
one T/O area, detail chart 254 
two I/O areas 113 
two I/O areas, detail chart 252 
cross-reference label list 336 
cross-reference message list 343 


DEVADDR=, DTFCP macro parameter 103 
device independent files 114 
initialization and termination 120 
open 120 
open, detail chart 267 
system files (DI) 114 
DFR macro 38 
DIMOD macro 117 
GET 
one I/O area 118 , 
one I/O area, detail chart 258 
two I/O areas 118 
two I/O areas, detail chart 259 


PUT 
one I/O area 118 
cne I/O area, detail chart 260 
two I/O areas 119 
two I/O areas, detail chart 261 
DISEN macro 32 
DISEN macro, detail chart 166 
DISK=, CPMOD macro parameter 112 
Giskette files 127 
module save areas 127 
record format 127 
storage areas 127 
DLINT macro 38 | 
documert irfcrmation record 39 
DRMOD 43 


CNTRI 43 es | 
CNTRL, detail chart 182 
READ 43 

READ, detail chart 182 
SETCLDEV 44 

SETLCEV, detail chart 183 
WAITF 44 


WAITF, detail chart 183 
DSPLY macro 38 
DSPLY macro, détail chart 177 
DTF tables 
DIFCD 
combined 21 
input 14 
output 18 
DIFCN 24 
DTFCE 
DISK= NO 1C8 
DISK= omitted 110 
DISK= YES 105 


DTFCI 11€ 
DTFDR 42 
DTFDU 130 
DTFMR 26 


DIFMT data files 73 
DIFMT workfiles 81 
DTFOR 35 
DIFPH diskette 133 
DIFEH magnetic tape 82 
DIFPR 46 
DIFPT 
no shift 1018 65 
no trans, shift, delete 1017 59 
no trans, shift, delete 2671 53 
shift 1018 €6 | 
trans, no shift or delete 1017 60 
trans, no shift or delete 2671 54 
trans, shift, delete, fixunb 1017 61 
trans, shift, delete, fixunb 2671 55 
trans, shift, delete, undef 1017 63 
trans, shift, delete, undef 2671 57 
CDTFCD 13 
DTFCN 23 
GET macro 23 
GET macro, detail chart 160 
FUT macro 24 
PUT macro, detail chart 161 
FUTR macro 2Z§& 
PUTR macrc, detail chart 162 
DTFCP 103 
close tape files 124 
message writer 125 
open 
input tape 122 
labeled input 124 
cutput tape 123 
DTFDI 114 
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close tape files 124 
message writer 125 


DTFDR 43 
Open 44 
table 42 


DTFDU macro 128 
DTFDU table 129 
DTFMR 25 

close 33 

message writer 34 


MICR 25 

open 33 

table 26 
DTFMT 72 


close, except work files 97 
close work files 98 
data files 72 
message writer 99 
open 88 
open work files 93 
tables, data files 73 
tables, work files 81 
work files 72 

DTFOR 34 
close 44 
open 44 
optical reader 34 
table 35 

DTFPH 
macro, diskette 132 
macro, magnetic tape 72 
table, diskette 132 
table, magnetic tape 82 


DTFPR 45. 
printer files 45 
table 46 
DIFPT 52 
logic module (PTMOD) 67 
table 53 
DTFxx macros 
DTFCD 13 
DTFCN 23 
DTFCP 103 
DTFDI 114 
DTFDR 43 
DTFDU 128 
DTFMR 25 
DTFMT 72 
DIFOR 34 


DTFFH (diskette) 132 
DTFPH (magnetic tape) 72 
DTIFPR 45 

DTFPT 52 


EOF/ECV monitor 94 
EOFADDR=, DIFCP macro parameter 104 
EOV and logical spacing routine, 
detail chart 207 
ERREXT 
DUMCDFI 134 
DUMODFO 134 
ERROPT 
DUMCDFI 134 
DUMODFO 134 
error exit routine 
MTMOD, fixed, detail chart 211. 
MTMOD, variable, detail chart 213 
error messages 343 
error options extension 83 
error recovery, punch 120 


Tndex 351 
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explanation cf flowchart symbols 140 
extended buffering for 3800 49 

CICSE processing 52 | 

CNTEL macre 49 

OPEN processing 51 

PRTOV macro £0 

FUT macro 50 

TRC/YFCB update 51 

truncation 51 


FEOV macro @&4 

FECV macro, MTMCL detail chart 200 
field informaticn record 43 

files, associated 22,49 

flowchart labels 336 

flowchart symbols 140 

format record #28 

format reccrd relationship 41 


generation macros for diskette module 133 
GET legic fcr the 1017 paper 
tape reader 6€ 
GET macro 
CDMOD 22 
CDMOD, detail chart 152 
CFMOD 112,113 
IOPTR=YES = 113 
ICETR=YES, detail chart 251 
one I/O area 113 
one I/O area, detail chart 251 
twe I/O areas 112 
two I/O areas, detail chart 250 
CIMCLE 118 — 
one I/O area 118 
one I/O area, detail chart 258 
twe I/O areas 118 
two I/O areas, detail chart 259 
DTFCN =§ 23 
DTFCN, detail chart 160 
CUMCDFI 134 
detail chart 292 


MRMOD 30 
MRMOD, detail chart 163 


MTMOD 
fixed-length records 85 
fixed-length records, 
detail chart 201 
GET/PUT common routines, 
detail chart 203 
Spanned records 85. 
spanned reccrds, detail chart 202 
undefined records 85 
undefined records, detail chart 201 
variable-length records 8:5 
variable length records, 
| detail chart 201 
CRMCD | 
blocked reccrds 37 
blocked records, detail chart 174 
unblocked records 37 
unblocked records, detail chart 171 
ETMOD (device=1017) 
no trans 69 
no trans, detail chart 193 
trans 69 , 
trans, detail chart 193 
trans, shifted code, fixed unblocked 
records 6¢ 


352. LIccS Volume 2, SAM 


trans, shifted code, fixed unblocked 
records, detail chart 194 | 

trans, shifted code, undefined 
records 69 / 

trans, shifted code, undefined 
records, detail chart 195 


PTMOD 


(device=267 1) 


no trans 67 

no trans, detail chart 190 

trans, no shifted code 67 

trans, no shifted code, detail 
chart 190 

trans, shifted code, fixed unblocked 
records 67 

trans, shifted code, fixed unblocked 
records, detail chart 191 

trans, shifted code, undefined 
records 68 

trans, shifted code, undefined 
records, detail chart 192 


IJJGMSGT 


10 1 


detail chart 248 
information record 
document 39 


field 
line 


40 
3g 


initialization and termination 
CP and DI files 120 
magnetic tape files 88 
MICK files 33 
optical reader files 44 
unit record files 12 
input/output areas for diskette 127 


IOAREA= 
CPMOD 
DTFCP 

IOPTR= 
CPMCD 
DTFCP 

IOREG=, 


macro parameter 1117 
macro parameter 103 


Macro parameter 112 
macrc parameter 104 
DTFCP macro parameter 103 


job ccntrol magnetic tape open 93 
job control statements for MT files 88 


label list, flowchart 336 
labels, tape 88 

line information record 39 
LITE macro 


MRMOD 


MRMOD, 


32 
detail chart 165 


logic modules 


CDMOD 


CPMCD. 


DIMOD 
DTFCN 
MRMOD 
MTMOD 
ORMOD 
PRMCD 
PTMOD 


22 
111 


67 


logical spacing and EOV routines, 


detail 


chart 207 


logical transients 
S$$BCCPT1 124 
detail chart 287 


$$BCECV1I 
detail 
$$BCLCSP 
detail 
$$BCMRO1 
detail 
$SBCMTO 1 
detail 
$$EBCMTIO2 
detail 
$$ECMIO3 
detail 
$$BCMIO4 
detail 
EFSBCMTIOS 
detail 
$S$BCMTOG 
detail 
S$EECMTIOT 
detail 
$FECMIOB 
detail 
S$S$BERETP 
detail 
$EBERRTN 
detail 
$$BICOPT 
detail 
$$BICOP1 
detail 
$EBMME2O 
detail 
SFEMSGWR 
detail 
$EBCCEM1 
detail 
$EBCCEMZ 
detail 
$$BCCET1 
detail 
$$BOCPT2 
detail 
$$BOCPT3 
detail 
$$BCCETY 
detail 
$$BCCE01 
detail 
$$BCCEO2 
detail 
$$BOCP03 
detail 
$S$BOCP11 
detail 
$$BOCP12 
detail 
$$BCLDION 
detail 
S$$EBCLIO2 
detail 
$$BODIO3 
detail 
$$BODIOYU 
detail 
$$BCDIO5 
detail 
$$BCDIO6 
detail 
$$EBOLIOT 
detail 
$$¢BODIOB 
detail 


94 
chart 
125 
chart 
33 
chart 
94 
chart 
95 
chart 
g5 
chart 


chart 
C7 
chart 
98 
chart 


chart 
C7 
chart 
119 
chart 
120 
chart 
chart 
93 
chart 
33 
chart 
100 
chart 
125 
chart 
125 
chart 
122 
chart 
123 
chart 
123 
chart 
124 
chart 
120 
chart 
121 
chart 
121 
chart 
122 
chart 
122 
chart 
137 
chart 
138 
chart 
139 
chart 
139 
chart 
137 
chart 
138 
chart 
139 
chart 
139 
chart 


289 
167 
232 
233 
234 
235 
236 
239 
240 
238 
265 
264 


229 


281. 


284 
267 
268 
269 
270 
272 


301 


325 
303 


308 


323 


Licensed 


$$BODUCP 
detail 
$$BCMLTA 
detail 
$$BOMRCE 
detail 
$S$BOMRO1 
detail 
S$S$BOMSVA 
detail 
S$FBCMSV2 
detail 
$P$BCMTOM 
detail 
$$BCMTOW 
detail 
$$BOMTO1 
detail 
S$$BOMTO2 
detail 
$$BCMTO3 
detail 
$SBOMTOY 
detail 
$EBOMTO5 
detail 
$S$BCMTO6 
detail 
$EBOMTOT 
detail 
$SBONVOL 
detail 
$$BCOOR01 
detail 
$$BCPR3 
detail 
$$BOUR01 
detail 
$$B 35401 
detail 
$$B35400 
detail 
$$B 35400 
detail 


macro 
CDMCD 22 


CHECK 
MRMOD 
MTMOD 

CNT RL 
CDMOD 
DRMOD 
IJDPR3 
MTMOD 
ORMOD 
PRMOD © 


139 
chart 
102 
chart 
13 
chart 
33 
chart 
101 
chart 
101 
chart 
99 
chart 
99 
chart 
88 
chart 
89 
chart 
90 
chart 
91 
chart 
92 
chart 
93 
chart 
93 
chart 
100 
chart 
44 
chart 
121 
chart 
12 
chart 
137 
chart 
138 
chart 
136 
chart 


30 
84 


22 
4 3 
4g 
84 
37 
48 


CPMOD 
DFR 

DIMOD 
DISEN 
DLINT 
DRMOD 
DSPLY 
DTFCD 
DTFCN 
DTFCP 
DTFDI 
DTFDR 
DTF DU 


111 


38 


117 
32 
38 
43 
38 
13 
23 
103 
174 
43 
128 
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